;;;; Generated on 3/22/2021 at 17:54:19 (UTC-8).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%ILASLR %ILASLR %%ILATRANS %ILATRANS %%ILAUPLO %ILAUPLO
  %%ILAZLC %ILAZLC %%ILAZLR %ILAZLR %%IPARMQ %IPARMQ %%IZMAX1 %IZMAX1 %%LSAMEN
  %LSAMEN %%SBBCSD %SBBCSD %%SBDSDC %SBDSDC %%SBDSQR %SBDSQR %%SBDSVDX %SBDSVDX
  %%SCOMBSSQ %SCOMBSSQ %%SCSUM1 %SCSUM1 %%SDISNA %SDISNA %%SGBBRD %SGBBRD
  %%SGBCON %SGBCON %%SGBEQU %SGBEQU %%SGBEQUB %SGBEQUB %%SGBRFS %SGBRFS
  %%SGBRFSX %SGBRFSX %%SGBSV %SGBSV %%SGBSVX %SGBSVX %%SGBSVXX %SGBSVXX
  %%SGBTF2 %SGBTF2 %%SGBTRF %SGBTRF %%SGBTRS %SGBTRS %%SGEBAK %SGEBAK %%SGEBAL
  %SGEBAL %%SGEBD2 %SGEBD2 %%SGEBRD %SGEBRD %%SGECON %SGECON %%SGEEQU %SGEEQU
  %%SGEEQUB %SGEEQUB %%SGEES %SGEES %%SGEESX %SGEESX %%SGEEV %SGEEV %%SGEEVX
  %SGEEVX %%SGEHD2 %SGEHD2 %%SGEHRD %SGEHRD %%SGEJSV %SGEJSV %%SGELQ %SGELQ
  %%SGELQ2 %SGELQ2 %%SGELQF %SGELQF %%SGELQT %SGELQT %%SGELQT3 %SGELQT3 %%SGELS
  %SGELS %%SGELSD %SGELSD %%SGELSS %SGELSS %%SGELSY %SGELSY %%SGEMLQ %SGEMLQ
  %%SGEMLQT %SGEMLQT %%SGEMQR %SGEMQR %%SGEMQRT %SGEMQRT %%SGEQL2 %SGEQL2
  %%SGEQLF %SGEQLF %%SGEQP3 %SGEQP3 %%SGEQR %SGEQR %%SGEQR2 %SGEQR2 %%SGEQR2P
  %SGEQR2P %%SGEQRF %SGEQRF %%SGEQRFP %SGEQRFP %%SGEQRT %SGEQRT %%SGEQRT2
  %SGEQRT2 %%SGEQRT3 %SGEQRT3 %%SGERFS %SGERFS %%SGERFSX %SGERFSX %%SGERQ2
  %SGERQ2 %%SGERQF %SGERQF %%SGESC2 %SGESC2 %%SGESDD %SGESDD %%SGESV %SGESV
  %%SGESVD %SGESVD %%SGESVDQ %SGESVDQ %%SGESVDX %SGESVDX %%SGESVJ %SGESVJ
  %%SGESVX %SGESVX %%SGESVXX %SGESVXX %%SGETC2 %SGETC2 %%SGETF2 %SGETF2
  %%SGETRF %SGETRF %%SGETRF2 %SGETRF2 %%SGETRI %SGETRI %%SGETRS %SGETRS
  %%SGETSLS %SGETSLS %%SGGBAK %SGGBAK %%SGGBAL %SGGBAL %%SGGES %SGGES %%SGGES3
  %SGGES3 %%SGGESX %SGGESX %%SGGEV %SGGEV %%SGGEV3 %SGGEV3 %%SGGEVX %SGGEVX
  %%SGGGLM %SGGGLM %%SGGHD3 %SGGHD3 %%SGGHRD %SGGHRD %%SGGLSE %SGGLSE %%SGGQRF
  %SGGQRF %%SGGRQF %SGGRQF %%SGGSVD3 %SGGSVD3 %%SGGSVP3 %SGGSVP3 %%SGSVJ0
  %SGSVJ0 %%SGSVJ1 %SGSVJ1 %%SGTCON %SGTCON %%SGTRFS %SGTRFS %%SGTSV %SGTSV
  %%SGTSVX %SGTSVX %%SGTTRF %SGTTRF %%SGTTRS %SGTTRS %%SGTTS2 %SGTTS2 %%SHGEQZ
  %SHGEQZ %%SHSEIN %SHSEIN %%SHSEQR %SHSEQR %%SISNAN %SISNAN %%SLA_GBAMV
  %SLA_GBAMV %%SLA_GBRCOND %SLA_GBRCOND %%SLA_GBRFSX_EXTENDED
  %SLA_GBRFSX_EXTENDED %%SLA_GBRPVGRW %SLA_GBRPVGRW %%SLA_GEAMV %SLA_GEAMV
  %%SLA_GERCOND %SLA_GERCOND %%SLA_GERFSX_EXTENDED %SLA_GERFSX_EXTENDED
  %%SLA_GERPVGRW %SLA_GERPVGRW %%SLA_LIN_BERR %SLA_LIN_BERR %%SLA_PORCOND
  %SLA_PORCOND %%SLA_PORFSX_EXTENDED %SLA_PORFSX_EXTENDED %%SLA_PORPVGRW
  %SLA_PORPVGRW %%SLA_SYAMV %SLA_SYAMV %%SLA_SYRCOND %SLA_SYRCOND
  %%SLA_SYRFSX_EXTENDED %SLA_SYRFSX_EXTENDED %%SLA_SYRPVGRW %SLA_SYRPVGRW
  %%SLA_WWADDW %SLA_WWADDW %%SLABAD %SLABAD %%SLABRD %SLABRD %%SLACN2 %SLACN2
  %%SLACON %SLACON %%SLACPY %SLACPY %%SLADIV %SLADIV %%SLAE2 %SLAE2 %%SLAEBZ
  %SLAEBZ %%SLAED0 %SLAED0 %%SLAED1 %SLAED1 %%SLAED2 %SLAED2 %%SLAED3 %SLAED3
  %%SLAED4 %SLAED4 %%SLAED5 %SLAED5 %%SLAED6 %SLAED6 %%SLAED7 %SLAED7 %%SLAED8
  %SLAED8 %%SLAED9 %SLAED9 %%SLAEDA %SLAEDA %%SLAEIN %SLAEIN %%SLAEV2 %SLAEV2
  %%SLAEXC %SLAEXC %%SLAG2 %SLAG2 %%SLAG2D %SLAG2D %%SLAGS2 %SLAGS2 %%SLAGTF
  %SLAGTF %%SLAGTM %SLAGTM %%SLAGTS %SLAGTS %%SLAGV2 %SLAGV2 %%SLAHQR %SLAHQR
  %%SLAHR2 %SLAHR2 %%SLAIC1 %SLAIC1 %%SLAISNAN %SLAISNAN %%SLALN2 %SLALN2
  %%SLALS0 %SLALS0 %%SLALSA %SLALSA %%SLALSD %SLALSD %%SLAMRG %SLAMRG
  %%SLAMSWLQ %SLAMSWLQ %%SLAMTSQR %SLAMTSQR %%SLANEG %SLANEG %%SLANGB %SLANGB
  %%SLANGE %SLANGE %%SLANGT %SLANGT %%SLANHS %SLANHS %%SLANSB %SLANSB %%SLANSF
  %SLANSF %%SLANSP %SLANSP %%SLANST %SLANST %%SLANSY %SLANSY %%SLANTB %SLANTB
  %%SLANTP %SLANTP %%SLANTR %SLANTR %%SLANV2 %SLANV2 %%SLAORHR_COL_GETRFNP
  %SLAORHR_COL_GETRFNP %%SLAORHR_COL_GETRFNP2 %SLAORHR_COL_GETRFNP2 %%SLAPLL
  %SLAPLL %%SLAPMR %SLAPMR %%SLAPMT %SLAPMT %%SLAPY2 %SLAPY2 %%SLAPY3 %SLAPY3
  %%SLAQGB %SLAQGB %%SLAQGE %SLAQGE %%SLAQP2 %SLAQP2 %%SLAQPS %SLAQPS %%SLAQR0
  %SLAQR0 %%SLAQR1 %SLAQR1 %%SLAQR2 %SLAQR2 %%SLAQR3 %SLAQR3 %%SLAQR4 %SLAQR4
  %%SLAQR5 %SLAQR5 %%SLAQSB %SLAQSB %%SLAQSP %SLAQSP %%SLAQSY %SLAQSY %%SLAQTR
  %SLAQTR %%SLAR1V %SLAR1V %%SLAR2V %SLAR2V %%SLARF %SLARF %%SLARFB %SLARFB
  %%SLARFG %SLARFG %%SLARFGP %SLARFGP %%SLARFT %SLARFT %%SLARFX %SLARFX
  %%SLARFY %SLARFY %%SLARGV %SLARGV %%SLARNV %SLARNV %%SLARRA %SLARRA %%SLARRB
  %SLARRB %%SLARRC %SLARRC %%SLARRD %SLARRD %%SLARRE %SLARRE %%SLARRF %SLARRF
  %%SLARRJ %SLARRJ %%SLARRK %SLARRK %%SLARRR %SLARRR %%SLARRV %SLARRV
  %%SLARSCL2 %SLARSCL2 %%SLARTG %SLARTG %%SLARTGP %SLARTGP %%SLARTGS %SLARTGS
  %%SLARTV %SLARTV %%SLARUV %SLARUV %%SLARZ %SLARZ %%SLARZB %SLARZB %%SLARZT
  %SLARZT %%SLAS2 %SLAS2 %%SLASCL %SLASCL %%SLASCL2 %SLASCL2 %%SLASD0 %SLASD0
  %%SLASD1 %SLASD1 %%SLASD2 %SLASD2 %%SLASD3 %SLASD3 %%SLASD4 %SLASD4 %%SLASD5
  %SLASD5 %%SLASD6 %SLASD6 %%SLASD7 %SLASD7 %%SLASD8 %SLASD8))

(CFFI:DEFCFUN ("ilaslr_" %%ILASLR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILASLR (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILASLR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11635 ':INT32) (N-REF11636 ':INT32)
                              (LDA-REF11638 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11635 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11636 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11638 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11637 A))
      (%%ILASLR M-REF11635 N-REF11636 A-REF11637 LDA-REF11638))))

(CFFI:DEFCFUN ("ilatrans_" %%ILATRANS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (TRANS :STRING))

(COMMON-LISP:DEFUN %ILATRANS (TRANS)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILATRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILATRANS TRANS))))

(CFFI:DEFCFUN ("ilauplo_" %%ILAUPLO :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (UPLO :STRING))

(COMMON-LISP:DEFUN %ILAUPLO (UPLO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAUPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILAUPLO UPLO))))

(CFFI:DEFCFUN ("ilazlc_" %%ILAZLC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILAZLC (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAZLC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11641 ':INT32) (N-REF11642 ':INT32)
                              (LDA-REF11644 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11641 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11642 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11644 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11643 A))
      (%%ILAZLC M-REF11641 N-REF11642 A-REF11643 LDA-REF11644))))

(CFFI:DEFCFUN ("ilazlr_" %%ILAZLR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILAZLR (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAZLR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11645 ':INT32) (N-REF11646 ':INT32)
                              (LDA-REF11648 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11645 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11646 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11648 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11647 A))
      (%%ILAZLR M-REF11645 N-REF11646 A-REF11647 LDA-REF11648))))

(CFFI:DEFCFUN ("iparmq_" %%IPARMQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (ISPEC :POINTER)
  (NAME :STRING)
  (OPTS :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %IPARMQ (ISPEC NAME OPTS N ILO IHI LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%IPARMQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISPEC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NAME)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING OPTS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11649 ':INT32) (N-REF11652 ':INT32)
                              (ILO-REF11653 ':INT32) (IHI-REF11654 ':INT32)
                              (LWORK-REF11655 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11649 :INT32) ISPEC)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11652 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF11653 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF11654 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11655 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%IPARMQ ISPEC-REF11649 NAME OPTS N-REF11652 ILO-REF11653 IHI-REF11654
       LWORK-REF11655))))

(CFFI:DEFCFUN ("izmax1_" %%IZMAX1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (N :POINTER)
  (ZX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %IZMAX1 (N ZX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%IZMAX1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11656 ':INT32) (INCX-REF11658 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11656 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11658 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF11657 ZX))
      (%%IZMAX1 N-REF11656 ZX-REF11657 INCX-REF11658))))

(CFFI:DEFCFUN ("lsamen_" %%LSAMEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (N :POINTER)
  (CA :STRING)
  (CB :STRING))

(COMMON-LISP:DEFUN %LSAMEN (N CA CB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%LSAMEN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING CA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING CB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11659 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11659 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%LSAMEN N-REF11659 CA CB))))

(CFFI:DEFCFUN ("sbbcsd_" %%SBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (B11D :POINTER)
  (B11E :POINTER)
  (B12D :POINTER)
  (B12E :POINTER)
  (B21D :POINTER)
  (B21E :POINTER)
  (B22D :POINTER)
  (B22E :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SBBCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS M P Q THETA PHI U1 LDU1 U2
                    LDU2 V1T LDV1T V2T LDV2T B11D B11E B12D B12E B21D B21E B22D
                    B22E WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SBBCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B11D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B11E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B12D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B12E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B21D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B21E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B22D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B22E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11667 ':INT32) (P-REF11668 ':INT32)
                              (Q-REF11669 ':INT32) (LDU1-REF11673 ':INT32)
                              (LDU2-REF11675 ':INT32) (LDV1T-REF11677 ':INT32)
                              (LDV2T-REF11679 ':INT32) (LWORK-REF11689 ':INT32)
                              (INFO-REF11690 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11667 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF11668 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF11669 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF11673 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF11675 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF11677 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF11679 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11689 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11690 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF11670 THETA)
                                            (PHI-REF11671 PHI) (U1-REF11672 U1)
                                            (U2-REF11674 U2) (V1T-REF11676 V1T)
                                            (V2T-REF11678 V2T)
                                            (B11D-REF11680 B11D)
                                            (B11E-REF11681 B11E)
                                            (B12D-REF11682 B12D)
                                            (B12E-REF11683 B12E)
                                            (B21D-REF11684 B21D)
                                            (B21E-REF11685 B21E)
                                            (B22D-REF11686 B22D)
                                            (B22E-REF11687 B22E)
                                            (WORK-REF11688 WORK))
      (%%SBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF11667 P-REF11668
       Q-REF11669 THETA-REF11670 PHI-REF11671 U1-REF11672 LDU1-REF11673
       U2-REF11674 LDU2-REF11675 V1T-REF11676 LDV1T-REF11677 V2T-REF11678
       LDV2T-REF11679 B11D-REF11680 B11E-REF11681 B12D-REF11682 B12E-REF11683
       B21D-REF11684 B21E-REF11685 B22D-REF11686 B22E-REF11687 WORK-REF11688
       LWORK-REF11689 INFO-REF11690))))

(CFFI:DEFCFUN ("sbdsdc_" %%SBDSDC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (COMPQ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (Q :POINTER)
  (IQ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SBDSDC
                   (UPLO COMPQ N D E U LDU VT LDVT Q IQ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SBDSDC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11693 ':INT32) (LDU-REF11697 ':INT32)
                              (LDVT-REF11699 ':INT32) (INFO-REF11704 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11693 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF11697 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF11699 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11704 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11694 D) (E-REF11695 E)
                                            (U-REF11696 U) (VT-REF11698 VT)
                                            (Q-REF11700 Q) (IQ-REF11701 IQ)
                                            (WORK-REF11702 WORK)
                                            (IWORK-REF11703 IWORK))
      (%%SBDSDC UPLO COMPQ N-REF11693 D-REF11694 E-REF11695 U-REF11696
       LDU-REF11697 VT-REF11698 LDVT-REF11699 Q-REF11700 IQ-REF11701
       WORK-REF11702 IWORK-REF11703 INFO-REF11704))))

(CFFI:DEFCFUN ("sbdsqr_" %%SBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NCVT :POINTER)
  (NRU :POINTER)
  (NCC :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SBDSQR
                   (UPLO N NCVT NRU NCC D E VT LDVT U LDU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SBDSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11706 ':INT32) (NCVT-REF11707 ':INT32)
                              (NRU-REF11708 ':INT32) (NCC-REF11709 ':INT32)
                              (LDVT-REF11713 ':INT32) (LDU-REF11715 ':INT32)
                              (LDC-REF11717 ':INT32) (INFO-REF11719 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11706 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF11707 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF11708 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF11709 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF11713 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF11715 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11717 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11719 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11710 D) (E-REF11711 E)
                                            (VT-REF11712 VT) (U-REF11714 U)
                                            (C-REF11716 C) (WORK-REF11718 WORK))
      (%%SBDSQR UPLO N-REF11706 NCVT-REF11707 NRU-REF11708 NCC-REF11709
       D-REF11710 E-REF11711 VT-REF11712 LDVT-REF11713 U-REF11714 LDU-REF11715
       C-REF11716 LDC-REF11717 WORK-REF11718 INFO-REF11719))))

(CFFI:DEFCFUN ("sbdsvdx_" %%SBDSVDX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (NS :POINTER)
  (S :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SBDSVDX
                   (UPLO JOBZ RANGE N D E VL VU IL IU NS S Z LDZ WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SBDSVDX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11723 ':INT32) (VL-REF11726 ':FLOAT)
                              (VU-REF11727 ':FLOAT) (IL-REF11728 ':INT32)
                              (IU-REF11729 ':INT32) (NS-REF11730 ':INT32)
                              (LDZ-REF11733 ':INT32) (INFO-REF11736 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11723 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF11726 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF11727 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF11728 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF11729 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF11730 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11733 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11736 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11724 D) (E-REF11725 E)
                                            (S-REF11731 S) (Z-REF11732 Z)
                                            (WORK-REF11734 WORK)
                                            (IWORK-REF11735 IWORK))
      (%%SBDSVDX UPLO JOBZ RANGE N-REF11723 D-REF11724 E-REF11725 VL-REF11726
       VU-REF11727 IL-REF11728 IU-REF11729 NS-REF11730 S-REF11731 Z-REF11732
       LDZ-REF11733 WORK-REF11734 IWORK-REF11735 INFO-REF11736))))

(CFFI:DEFCFUN ("scombssq_" %%SCOMBSSQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (V1 :POINTER)
  (V2 :POINTER))

(COMMON-LISP:DEFUN %SCOMBSSQ (V1 V2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SCOMBSSQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        V2))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V1-REF11737 V1) (V2-REF11738 V2))
      (%%SCOMBSSQ V1-REF11737 V2-REF11738))))

(CFFI:DEFCFUN ("scsum1_" %%SCSUM1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SCSUM1 (N CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SCSUM1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11739 ':INT32) (INCX-REF11741 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11739 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11741 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF11740 CX))
      (%%SCSUM1 N-REF11739 CX-REF11740 INCX-REF11741))))

(CFFI:DEFCFUN ("sdisna_" %%SDISNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (SEP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SDISNA (JOB M N D SEP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SDISNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11743 ':INT32) (N-REF11744 ':INT32)
                              (INFO-REF11747 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11743 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11744 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11747 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11745 D) (SEP-REF11746 SEP))
      (%%SDISNA JOB M-REF11743 N-REF11744 D-REF11745 SEP-REF11746
       INFO-REF11747))))

(CFFI:DEFCFUN ("sgbbrd_" %%SGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (NCC :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (PT :POINTER)
  (LDPT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBBRD
                   (VECT M N NCC KL KU AB LDAB D E Q LDQ PT LDPT C LDC WORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBBRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDPT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11749 ':INT32) (N-REF11750 ':INT32)
                              (NCC-REF11751 ':INT32) (KL-REF11752 ':INT32)
                              (KU-REF11753 ':INT32) (LDAB-REF11755 ':INT32)
                              (LDQ-REF11759 ':INT32) (LDPT-REF11761 ':INT32)
                              (LDC-REF11763 ':INT32) (INFO-REF11765 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11749 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11750 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF11751 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11752 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11753 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11755 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11759 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF11761 :INT32) LDPT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11763 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11765 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11754 AB) (D-REF11756 D)
                                            (E-REF11757 E) (Q-REF11758 Q)
                                            (PT-REF11760 PT) (C-REF11762 C)
                                            (WORK-REF11764 WORK))
      (%%SGBBRD VECT M-REF11749 N-REF11750 NCC-REF11751 KL-REF11752 KU-REF11753
       AB-REF11754 LDAB-REF11755 D-REF11756 E-REF11757 Q-REF11758 LDQ-REF11759
       PT-REF11760 LDPT-REF11761 C-REF11762 LDC-REF11763 WORK-REF11764
       INFO-REF11765))))

(CFFI:DEFCFUN ("sgbcon_" %%SGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBCON
                   (NORM N KL KU AB LDAB IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11767 ':INT32) (KL-REF11768 ':INT32)
                              (KU-REF11769 ':INT32) (LDAB-REF11771 ':INT32)
                              (ANORM-REF11773 ':FLOAT) (RCOND-REF11774 ':FLOAT)
                              (INFO-REF11777 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11767 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11768 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11769 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11771 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF11773 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11774 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11777 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11770 AB)
                                            (IPIV-REF11772 IPIV)
                                            (WORK-REF11775 WORK)
                                            (IWORK-REF11776 IWORK))
      (%%SGBCON NORM N-REF11767 KL-REF11768 KU-REF11769 AB-REF11770
       LDAB-REF11771 IPIV-REF11772 ANORM-REF11773 RCOND-REF11774 WORK-REF11775
       IWORK-REF11776 INFO-REF11777))))

(CFFI:DEFCFUN ("sgbequ_" %%SGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBEQU (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11778 ':INT32) (N-REF11779 ':INT32)
                              (KL-REF11780 ':INT32) (KU-REF11781 ':INT32)
                              (LDAB-REF11783 ':INT32) (ROWCND-REF11786 ':FLOAT)
                              (COLCND-REF11787 ':FLOAT) (AMAX-REF11788 ':FLOAT)
                              (INFO-REF11789 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11778 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11779 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11780 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11781 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11783 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF11786 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF11787 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF11788 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11789 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11782 AB) (R-REF11784 R)
                                            (C-REF11785 C))
      (%%SGBEQU M-REF11778 N-REF11779 KL-REF11780 KU-REF11781 AB-REF11782
       LDAB-REF11783 R-REF11784 C-REF11785 ROWCND-REF11786 COLCND-REF11787
       AMAX-REF11788 INFO-REF11789))))

(CFFI:DEFCFUN ("sgbequb_" %%SGBEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBEQUB (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11790 ':INT32) (N-REF11791 ':INT32)
                              (KL-REF11792 ':INT32) (KU-REF11793 ':INT32)
                              (LDAB-REF11795 ':INT32) (ROWCND-REF11798 ':FLOAT)
                              (COLCND-REF11799 ':FLOAT) (AMAX-REF11800 ':FLOAT)
                              (INFO-REF11801 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11790 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11791 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11792 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11793 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11795 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF11798 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF11799 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF11800 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11801 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11794 AB) (R-REF11796 R)
                                            (C-REF11797 C))
      (%%SGBEQUB M-REF11790 N-REF11791 KL-REF11792 KU-REF11793 AB-REF11794
       LDAB-REF11795 R-REF11796 C-REF11797 ROWCND-REF11798 COLCND-REF11799
       AMAX-REF11800 INFO-REF11801))))

(CFFI:DEFCFUN ("sgbrfs_" %%SGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBRFS
                   (TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV B LDB X LDX FERR
                    BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11803 ':INT32) (KL-REF11804 ':INT32)
                              (KU-REF11805 ':INT32) (NRHS-REF11806 ':INT32)
                              (LDAB-REF11808 ':INT32) (LDAFB-REF11810 ':INT32)
                              (LDB-REF11813 ':INT32) (LDX-REF11815 ':INT32)
                              (INFO-REF11820 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11803 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11804 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11805 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11806 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11808 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11810 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11813 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11815 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11820 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11807 AB) (AFB-REF11809 AFB)
                                            (IPIV-REF11811 IPIV) (B-REF11812 B)
                                            (X-REF11814 X) (FERR-REF11816 FERR)
                                            (BERR-REF11817 BERR)
                                            (WORK-REF11818 WORK)
                                            (IWORK-REF11819 IWORK))
      (%%SGBRFS TRANS N-REF11803 KL-REF11804 KU-REF11805 NRHS-REF11806
       AB-REF11807 LDAB-REF11808 AFB-REF11809 LDAFB-REF11810 IPIV-REF11811
       B-REF11812 LDB-REF11813 X-REF11814 LDX-REF11815 FERR-REF11816
       BERR-REF11817 WORK-REF11818 IWORK-REF11819 INFO-REF11820))))

(CFFI:DEFCFUN ("sgbrfsx_" %%SGBRFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBRFSX
                   (TRANS EQUED N KL KU NRHS AB LDAB AFB LDAFB IPIV R C B LDB X
                    LDX RCOND BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11823 ':INT32) (KL-REF11824 ':INT32)
                              (KU-REF11825 ':INT32) (NRHS-REF11826 ':INT32)
                              (LDAB-REF11828 ':INT32) (LDAFB-REF11830 ':INT32)
                              (LDB-REF11835 ':INT32) (LDX-REF11837 ':INT32)
                              (RCOND-REF11838 ':FLOAT)
                              (N_ERR_BNDS-REF11840 ':INT32)
                              (NPARAMS-REF11843 ':INT32)
                              (INFO-REF11847 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11823 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11824 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11825 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11826 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11828 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11830 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11835 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11837 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11838 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF11840 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF11843 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11847 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11827 AB) (AFB-REF11829 AFB)
                                            (IPIV-REF11831 IPIV) (R-REF11832 R)
                                            (C-REF11833 C) (B-REF11834 B)
                                            (X-REF11836 X) (BERR-REF11839 BERR)
                                            (ERR_BNDS_NORM-REF11841
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF11842
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF11844 PARAMS)
                                            (WORK-REF11845 WORK)
                                            (IWORK-REF11846 IWORK))
      (%%SGBRFSX TRANS EQUED N-REF11823 KL-REF11824 KU-REF11825 NRHS-REF11826
       AB-REF11827 LDAB-REF11828 AFB-REF11829 LDAFB-REF11830 IPIV-REF11831
       R-REF11832 C-REF11833 B-REF11834 LDB-REF11835 X-REF11836 LDX-REF11837
       RCOND-REF11838 BERR-REF11839 N_ERR_BNDS-REF11840 ERR_BNDS_NORM-REF11841
       ERR_BNDS_COMP-REF11842 NPARAMS-REF11843 PARAMS-REF11844 WORK-REF11845
       IWORK-REF11846 INFO-REF11847))))

(CFFI:DEFCFUN ("sgbsv_" %%SGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBSV (N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11848 ':INT32) (KL-REF11849 ':INT32)
                              (KU-REF11850 ':INT32) (NRHS-REF11851 ':INT32)
                              (LDAB-REF11853 ':INT32) (LDB-REF11856 ':INT32)
                              (INFO-REF11857 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11848 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11849 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11850 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11851 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11853 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11856 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11857 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11852 AB)
                                            (IPIV-REF11854 IPIV) (B-REF11855 B))
      (%%SGBSV N-REF11848 KL-REF11849 KU-REF11850 NRHS-REF11851 AB-REF11852
       LDAB-REF11853 IPIV-REF11854 B-REF11855 LDB-REF11856 INFO-REF11857))))

(CFFI:DEFCFUN ("sgbsvx_" %%SGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBSVX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11860 ':INT32) (KL-REF11861 ':INT32)
                              (KU-REF11862 ':INT32) (NRHS-REF11863 ':INT32)
                              (LDAB-REF11865 ':INT32) (LDAFB-REF11867 ':INT32)
                              (LDB-REF11873 ':INT32) (LDX-REF11875 ':INT32)
                              (RCOND-REF11876 ':FLOAT) (INFO-REF11881 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11860 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11861 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11862 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11863 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11865 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11867 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11873 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11875 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11876 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11881 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11864 AB) (AFB-REF11866 AFB)
                                            (IPIV-REF11868 IPIV) (R-REF11870 R)
                                            (C-REF11871 C) (B-REF11872 B)
                                            (X-REF11874 X) (FERR-REF11877 FERR)
                                            (BERR-REF11878 BERR)
                                            (WORK-REF11879 WORK)
                                            (IWORK-REF11880 IWORK))
      (%%SGBSVX FACT TRANS N-REF11860 KL-REF11861 KU-REF11862 NRHS-REF11863
       AB-REF11864 LDAB-REF11865 AFB-REF11866 LDAFB-REF11867 IPIV-REF11868
       EQUED R-REF11870 C-REF11871 B-REF11872 LDB-REF11873 X-REF11874
       LDX-REF11875 RCOND-REF11876 FERR-REF11877 BERR-REF11878 WORK-REF11879
       IWORK-REF11880 INFO-REF11881))))

(CFFI:DEFCFUN ("sgbsvxx_" %%SGBSVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBSVXX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM
                    ERR_BNDS_COMP NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11884 ':INT32) (KL-REF11885 ':INT32)
                              (KU-REF11886 ':INT32) (NRHS-REF11887 ':INT32)
                              (LDAB-REF11889 ':INT32) (LDAFB-REF11891 ':INT32)
                              (LDB-REF11897 ':INT32) (LDX-REF11899 ':INT32)
                              (RCOND-REF11900 ':FLOAT)
                              (RPVGRW-REF11901 ':FLOAT)
                              (N_ERR_BNDS-REF11903 ':INT32)
                              (NPARAMS-REF11906 ':INT32)
                              (INFO-REF11910 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11884 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11885 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11886 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11887 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11889 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11891 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11897 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11899 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11900 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF11901 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF11903 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF11906 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11910 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11888 AB) (AFB-REF11890 AFB)
                                            (IPIV-REF11892 IPIV) (R-REF11894 R)
                                            (C-REF11895 C) (B-REF11896 B)
                                            (X-REF11898 X) (BERR-REF11902 BERR)
                                            (ERR_BNDS_NORM-REF11904
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF11905
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF11907 PARAMS)
                                            (WORK-REF11908 WORK)
                                            (IWORK-REF11909 IWORK))
      (%%SGBSVXX FACT TRANS N-REF11884 KL-REF11885 KU-REF11886 NRHS-REF11887
       AB-REF11888 LDAB-REF11889 AFB-REF11890 LDAFB-REF11891 IPIV-REF11892
       EQUED R-REF11894 C-REF11895 B-REF11896 LDB-REF11897 X-REF11898
       LDX-REF11899 RCOND-REF11900 RPVGRW-REF11901 BERR-REF11902
       N_ERR_BNDS-REF11903 ERR_BNDS_NORM-REF11904 ERR_BNDS_COMP-REF11905
       NPARAMS-REF11906 PARAMS-REF11907 WORK-REF11908 IWORK-REF11909
       INFO-REF11910))))

(CFFI:DEFCFUN ("sgbtf2_" %%SGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBTF2 (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBTF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11911 ':INT32) (N-REF11912 ':INT32)
                              (KL-REF11913 ':INT32) (KU-REF11914 ':INT32)
                              (LDAB-REF11916 ':INT32) (INFO-REF11918 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11911 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11912 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11913 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11914 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11916 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11918 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11915 AB)
                                            (IPIV-REF11917 IPIV))
      (%%SGBTF2 M-REF11911 N-REF11912 KL-REF11913 KU-REF11914 AB-REF11915
       LDAB-REF11916 IPIV-REF11917 INFO-REF11918))))

(CFFI:DEFCFUN ("sgbtrf_" %%SGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBTRF (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11919 ':INT32) (N-REF11920 ':INT32)
                              (KL-REF11921 ':INT32) (KU-REF11922 ':INT32)
                              (LDAB-REF11924 ':INT32) (INFO-REF11926 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11919 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11920 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11921 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11922 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11924 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11926 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11923 AB)
                                            (IPIV-REF11925 IPIV))
      (%%SGBTRF M-REF11919 N-REF11920 KL-REF11921 KU-REF11922 AB-REF11923
       LDAB-REF11924 IPIV-REF11925 INFO-REF11926))))

(CFFI:DEFCFUN ("sgbtrs_" %%SGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBTRS (TRANS N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11928 ':INT32) (KL-REF11929 ':INT32)
                              (KU-REF11930 ':INT32) (NRHS-REF11931 ':INT32)
                              (LDAB-REF11933 ':INT32) (LDB-REF11936 ':INT32)
                              (INFO-REF11937 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11928 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11929 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11930 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11931 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11933 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11936 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11937 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11932 AB)
                                            (IPIV-REF11934 IPIV) (B-REF11935 B))
      (%%SGBTRS TRANS N-REF11928 KL-REF11929 KU-REF11930 NRHS-REF11931
       AB-REF11932 LDAB-REF11933 IPIV-REF11934 B-REF11935 LDB-REF11936
       INFO-REF11937))))

(CFFI:DEFCFUN ("sgebak_" %%SGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEBAK (JOB SIDE N ILO IHI SCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11940 ':INT32) (ILO-REF11941 ':INT32)
                              (IHI-REF11942 ':INT32) (M-REF11944 ':INT32)
                              (LDV-REF11946 ':INT32) (INFO-REF11947 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11940 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF11941 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF11942 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11944 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11946 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11947 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF11943 SCALE)
                                            (V-REF11945 V))
      (%%SGEBAK JOB SIDE N-REF11940 ILO-REF11941 IHI-REF11942 SCALE-REF11943
       M-REF11944 V-REF11945 LDV-REF11946 INFO-REF11947))))

(CFFI:DEFCFUN ("sgebal_" %%SGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEBAL (JOB N A LDA ILO IHI SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11949 ':INT32) (LDA-REF11951 ':INT32)
                              (ILO-REF11952 ':INT32) (IHI-REF11953 ':INT32)
                              (INFO-REF11955 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11949 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11951 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF11952 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF11953 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11955 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11950 A)
                                            (SCALE-REF11954 SCALE))
      (%%SGEBAL JOB N-REF11949 A-REF11950 LDA-REF11951 ILO-REF11952
       IHI-REF11953 SCALE-REF11954 INFO-REF11955))))

(CFFI:DEFCFUN ("sgebd2_" %%SGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEBD2 (M N A LDA D E TAUQ TAUP WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEBD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11956 ':INT32) (N-REF11957 ':INT32)
                              (LDA-REF11959 ':INT32) (INFO-REF11965 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11956 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11957 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11959 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11965 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11958 A) (D-REF11960 D)
                                            (E-REF11961 E) (TAUQ-REF11962 TAUQ)
                                            (TAUP-REF11963 TAUP)
                                            (WORK-REF11964 WORK))
      (%%SGEBD2 M-REF11956 N-REF11957 A-REF11958 LDA-REF11959 D-REF11960
       E-REF11961 TAUQ-REF11962 TAUP-REF11963 WORK-REF11964 INFO-REF11965))))

(CFFI:DEFCFUN ("sgebrd_" %%SGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEBRD (M N A LDA D E TAUQ TAUP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEBRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11966 ':INT32) (N-REF11967 ':INT32)
                              (LDA-REF11969 ':INT32) (LWORK-REF11975 ':INT32)
                              (INFO-REF11976 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11966 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11967 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11969 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11975 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11976 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11968 A) (D-REF11970 D)
                                            (E-REF11971 E) (TAUQ-REF11972 TAUQ)
                                            (TAUP-REF11973 TAUP)
                                            (WORK-REF11974 WORK))
      (%%SGEBRD M-REF11966 N-REF11967 A-REF11968 LDA-REF11969 D-REF11970
       E-REF11971 TAUQ-REF11972 TAUP-REF11973 WORK-REF11974 LWORK-REF11975
       INFO-REF11976))))

(CFFI:DEFCFUN ("sgecon_" %%SGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGECON (NORM N A LDA ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGECON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11978 ':INT32) (LDA-REF11980 ':INT32)
                              (ANORM-REF11981 ':FLOAT) (RCOND-REF11982 ':FLOAT)
                              (INFO-REF11985 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11978 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11980 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF11981 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11982 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11985 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11979 A) (WORK-REF11983 WORK)
                                            (IWORK-REF11984 IWORK))
      (%%SGECON NORM N-REF11978 A-REF11979 LDA-REF11980 ANORM-REF11981
       RCOND-REF11982 WORK-REF11983 IWORK-REF11984 INFO-REF11985))))

(CFFI:DEFCFUN ("sgeequ_" %%SGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEEQU (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11986 ':INT32) (N-REF11987 ':INT32)
                              (LDA-REF11989 ':INT32) (ROWCND-REF11992 ':FLOAT)
                              (COLCND-REF11993 ':FLOAT) (AMAX-REF11994 ':FLOAT)
                              (INFO-REF11995 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11986 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11987 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11989 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF11992 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF11993 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF11994 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11995 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11988 A) (R-REF11990 R)
                                            (C-REF11991 C))
      (%%SGEEQU M-REF11986 N-REF11987 A-REF11988 LDA-REF11989 R-REF11990
       C-REF11991 ROWCND-REF11992 COLCND-REF11993 AMAX-REF11994
       INFO-REF11995))))

(CFFI:DEFCFUN ("sgeequb_" %%SGEEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEEQUB (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11996 ':INT32) (N-REF11997 ':INT32)
                              (LDA-REF11999 ':INT32) (ROWCND-REF12002 ':FLOAT)
                              (COLCND-REF12003 ':FLOAT) (AMAX-REF12004 ':FLOAT)
                              (INFO-REF12005 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11996 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11997 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11999 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF12002 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF12003 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF12004 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12005 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11998 A) (R-REF12000 R)
                                            (C-REF12001 C))
      (%%SGEEQUB M-REF11996 N-REF11997 A-REF11998 LDA-REF11999 R-REF12000
       C-REF12001 ROWCND-REF12002 COLCND-REF12003 AMAX-REF12004
       INFO-REF12005))))

(CFFI:DEFCFUN ("sgees_" %%SGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEES
                   (JOBVS SORT SELECT N A LDA SDIM WR WI VS LDVS WORK LWORK
                    BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF12008 ':INT32) (N-REF12009 ':INT32)
                              (LDA-REF12011 ':INT32) (SDIM-REF12012 ':INT32)
                              (LDVS-REF12016 ':INT32) (LWORK-REF12018 ':INT32)
                              (INFO-REF12020 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF12008 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12009 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12011 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12012 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF12016 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12018 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12020 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12010 A) (WR-REF12013 WR)
                                            (WI-REF12014 WI) (VS-REF12015 VS)
                                            (WORK-REF12017 WORK)
                                            (BWORK-REF12019 BWORK))
      (%%SGEES JOBVS SORT SELECT-REF12008 N-REF12009 A-REF12010 LDA-REF12011
       SDIM-REF12012 WR-REF12013 WI-REF12014 VS-REF12015 LDVS-REF12016
       WORK-REF12017 LWORK-REF12018 BWORK-REF12019 INFO-REF12020))))

(CFFI:DEFCFUN ("sgeesx_" %%SGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEESX
                   (JOBVS SORT SELECT SENSE N A LDA SDIM WR WI VS LDVS RCONDE
                    RCONDV WORK LWORK IWORK LIWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCONDE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF12023 ':INT32) (N-REF12025 ':INT32)
                              (LDA-REF12027 ':INT32) (SDIM-REF12028 ':INT32)
                              (LDVS-REF12032 ':INT32) (RCONDE-REF12033 ':FLOAT)
                              (RCONDV-REF12034 ':FLOAT)
                              (LWORK-REF12036 ':INT32)
                              (LIWORK-REF12038 ':INT32) (INFO-REF12040 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF12023 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12025 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12027 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12028 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF12032 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF12033 :FLOAT) RCONDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF12034 :FLOAT) RCONDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12036 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF12038 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12040 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12026 A) (WR-REF12029 WR)
                                            (WI-REF12030 WI) (VS-REF12031 VS)
                                            (WORK-REF12035 WORK)
                                            (IWORK-REF12037 IWORK)
                                            (BWORK-REF12039 BWORK))
      (%%SGEESX JOBVS SORT SELECT-REF12023 SENSE N-REF12025 A-REF12026
       LDA-REF12027 SDIM-REF12028 WR-REF12029 WI-REF12030 VS-REF12031
       LDVS-REF12032 RCONDE-REF12033 RCONDV-REF12034 WORK-REF12035
       LWORK-REF12036 IWORK-REF12037 LIWORK-REF12038 BWORK-REF12039
       INFO-REF12040))))

(CFFI:DEFCFUN ("sgeev_" %%SGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEEV
                   (JOBVL JOBVR N A LDA WR WI VL LDVL VR LDVR WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12043 ':INT32) (LDA-REF12045 ':INT32)
                              (LDVL-REF12049 ':INT32) (LDVR-REF12051 ':INT32)
                              (LWORK-REF12053 ':INT32) (INFO-REF12054 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12043 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12045 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12049 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12051 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12053 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12054 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12044 A) (WR-REF12046 WR)
                                            (WI-REF12047 WI) (VL-REF12048 VL)
                                            (VR-REF12050 VR)
                                            (WORK-REF12052 WORK))
      (%%SGEEV JOBVL JOBVR N-REF12043 A-REF12044 LDA-REF12045 WR-REF12046
       WI-REF12047 VL-REF12048 LDVL-REF12049 VR-REF12050 LDVR-REF12051
       WORK-REF12052 LWORK-REF12053 INFO-REF12054))))

(CFFI:DEFCFUN ("sgeevx_" %%SGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (ABNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA WR WI VL LDVL VR LDVR ILO
                    IHI SCALE ABNRM RCONDE RCONDV WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12059 ':INT32) (LDA-REF12061 ':INT32)
                              (LDVL-REF12065 ':INT32) (LDVR-REF12067 ':INT32)
                              (ILO-REF12068 ':INT32) (IHI-REF12069 ':INT32)
                              (ABNRM-REF12071 ':FLOAT) (LWORK-REF12075 ':INT32)
                              (INFO-REF12077 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12059 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12061 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12065 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12067 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12068 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12069 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF12071 :FLOAT) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12075 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12077 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12060 A) (WR-REF12062 WR)
                                            (WI-REF12063 WI) (VL-REF12064 VL)
                                            (VR-REF12066 VR)
                                            (SCALE-REF12070 SCALE)
                                            (RCONDE-REF12072 RCONDE)
                                            (RCONDV-REF12073 RCONDV)
                                            (WORK-REF12074 WORK)
                                            (IWORK-REF12076 IWORK))
      (%%SGEEVX BALANC JOBVL JOBVR SENSE N-REF12059 A-REF12060 LDA-REF12061
       WR-REF12062 WI-REF12063 VL-REF12064 LDVL-REF12065 VR-REF12066
       LDVR-REF12067 ILO-REF12068 IHI-REF12069 SCALE-REF12070 ABNRM-REF12071
       RCONDE-REF12072 RCONDV-REF12073 WORK-REF12074 LWORK-REF12075
       IWORK-REF12076 INFO-REF12077))))

(CFFI:DEFCFUN ("sgehd2_" %%SGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEHD2 (N ILO IHI A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEHD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12078 ':INT32) (ILO-REF12079 ':INT32)
                              (IHI-REF12080 ':INT32) (LDA-REF12082 ':INT32)
                              (INFO-REF12085 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12078 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12079 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12080 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12082 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12085 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12081 A) (TAU-REF12083 TAU)
                                            (WORK-REF12084 WORK))
      (%%SGEHD2 N-REF12078 ILO-REF12079 IHI-REF12080 A-REF12081 LDA-REF12082
       TAU-REF12083 WORK-REF12084 INFO-REF12085))))

(CFFI:DEFCFUN ("sgehrd_" %%SGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEHRD (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEHRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12086 ':INT32) (ILO-REF12087 ':INT32)
                              (IHI-REF12088 ':INT32) (LDA-REF12090 ':INT32)
                              (LWORK-REF12093 ':INT32) (INFO-REF12094 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12086 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12087 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12088 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12090 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12093 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12094 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12089 A) (TAU-REF12091 TAU)
                                            (WORK-REF12092 WORK))
      (%%SGEHRD N-REF12086 ILO-REF12087 IHI-REF12088 A-REF12089 LDA-REF12090
       TAU-REF12091 WORK-REF12092 LWORK-REF12093 INFO-REF12094))))

(CFFI:DEFCFUN ("sgejsv_" %%SGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBR :STRING)
  (JOBT :STRING)
  (JOBP :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEJSV
                   (JOBA JOBU JOBV JOBR JOBT JOBP M N A LDA SVA U LDU V LDV
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEJSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12101 ':INT32) (N-REF12102 ':INT32)
                              (LDA-REF12104 ':INT32) (LDU-REF12107 ':INT32)
                              (LDV-REF12109 ':INT32) (LWORK-REF12111 ':INT32)
                              (INFO-REF12113 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12101 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12102 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12104 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12107 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12109 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12111 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12113 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12103 A) (SVA-REF12105 SVA)
                                            (U-REF12106 U) (V-REF12108 V)
                                            (WORK-REF12110 WORK)
                                            (IWORK-REF12112 IWORK))
      (%%SGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF12101 N-REF12102 A-REF12103
       LDA-REF12104 SVA-REF12105 U-REF12106 LDU-REF12107 V-REF12108
       LDV-REF12109 WORK-REF12110 LWORK-REF12111 IWORK-REF12112
       INFO-REF12113))))

(CFFI:DEFCFUN ("sgelq_" %%SGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELQ (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12114 ':INT32) (N-REF12115 ':INT32)
                              (LDA-REF12117 ':INT32) (TSIZE-REF12119 ':INT32)
                              (LWORK-REF12121 ':INT32) (INFO-REF12122 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12114 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12115 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12117 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12119 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12121 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12122 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12116 A) (T-REF12118 T)
                                            (WORK-REF12120 WORK))
      (%%SGELQ M-REF12114 N-REF12115 A-REF12116 LDA-REF12117 T-REF12118
       TSIZE-REF12119 WORK-REF12120 LWORK-REF12121 INFO-REF12122))))

(CFFI:DEFCFUN ("sgelq2_" %%SGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12123 ':INT32) (N-REF12124 ':INT32)
                              (LDA-REF12126 ':INT32) (INFO-REF12129 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12123 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12124 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12126 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12129 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12125 A) (TAU-REF12127 TAU)
                                            (WORK-REF12128 WORK))
      (%%SGELQ2 M-REF12123 N-REF12124 A-REF12125 LDA-REF12126 TAU-REF12127
       WORK-REF12128 INFO-REF12129))))

(CFFI:DEFCFUN ("sgelqf_" %%SGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12130 ':INT32) (N-REF12131 ':INT32)
                              (LDA-REF12133 ':INT32) (LWORK-REF12136 ':INT32)
                              (INFO-REF12137 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12130 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12131 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12133 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12136 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12137 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12132 A) (TAU-REF12134 TAU)
                                            (WORK-REF12135 WORK))
      (%%SGELQF M-REF12130 N-REF12131 A-REF12132 LDA-REF12133 TAU-REF12134
       WORK-REF12135 LWORK-REF12136 INFO-REF12137))))

(CFFI:DEFCFUN ("sgelqt_" %%SGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELQT (M N MB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12138 ':INT32) (N-REF12139 ':INT32)
                              (MB-REF12140 ':INT32) (LDA-REF12142 ':INT32)
                              (LDT-REF12144 ':INT32) (INFO-REF12146 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12138 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12139 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF12140 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12142 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12144 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12146 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12141 A) (T-REF12143 T)
                                            (WORK-REF12145 WORK))
      (%%SGELQT M-REF12138 N-REF12139 MB-REF12140 A-REF12141 LDA-REF12142
       T-REF12143 LDT-REF12144 WORK-REF12145 INFO-REF12146))))

(CFFI:DEFCFUN ("sgelqt3_" %%SGELQT3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELQT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELQT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12147 ':INT32) (N-REF12148 ':INT32)
                              (LDA-REF12150 ':INT32) (LDT-REF12152 ':INT32)
                              (INFO-REF12153 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12147 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12148 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12150 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12152 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12153 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12149 A) (T-REF12151 T))
      (%%SGELQT3 M-REF12147 N-REF12148 A-REF12149 LDA-REF12150 T-REF12151
       LDT-REF12152 INFO-REF12153))))

(CFFI:DEFCFUN ("sgels_" %%SGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12155 ':INT32) (N-REF12156 ':INT32)
                              (NRHS-REF12157 ':INT32) (LDA-REF12159 ':INT32)
                              (LDB-REF12161 ':INT32) (LWORK-REF12163 ':INT32)
                              (INFO-REF12164 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12155 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12156 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12157 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12159 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12161 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12163 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12164 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12158 A) (B-REF12160 B)
                                            (WORK-REF12162 WORK))
      (%%SGELS TRANS M-REF12155 N-REF12156 NRHS-REF12157 A-REF12158
       LDA-REF12159 B-REF12160 LDB-REF12161 WORK-REF12162 LWORK-REF12163
       INFO-REF12164))))

(CFFI:DEFCFUN ("sgelsd_" %%SGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELSD
                   (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELSD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12165 ':INT32) (N-REF12166 ':INT32)
                              (NRHS-REF12167 ':INT32) (LDA-REF12169 ':INT32)
                              (LDB-REF12171 ':INT32) (RCOND-REF12173 ':FLOAT)
                              (RANK-REF12174 ':INT32) (LWORK-REF12176 ':INT32)
                              (INFO-REF12178 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12165 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12166 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12167 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12169 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12171 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12173 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF12174 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12176 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12178 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12168 A) (B-REF12170 B)
                                            (S-REF12172 S) (WORK-REF12175 WORK)
                                            (IWORK-REF12177 IWORK))
      (%%SGELSD M-REF12165 N-REF12166 NRHS-REF12167 A-REF12168 LDA-REF12169
       B-REF12170 LDB-REF12171 S-REF12172 RCOND-REF12173 RANK-REF12174
       WORK-REF12175 LWORK-REF12176 IWORK-REF12177 INFO-REF12178))))

(CFFI:DEFCFUN ("sgelss_" %%SGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELSS (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELSS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12179 ':INT32) (N-REF12180 ':INT32)
                              (NRHS-REF12181 ':INT32) (LDA-REF12183 ':INT32)
                              (LDB-REF12185 ':INT32) (RCOND-REF12187 ':FLOAT)
                              (RANK-REF12188 ':INT32) (LWORK-REF12190 ':INT32)
                              (INFO-REF12191 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12179 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12180 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12181 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12183 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12185 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12187 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF12188 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12190 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12191 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12182 A) (B-REF12184 B)
                                            (S-REF12186 S) (WORK-REF12189 WORK))
      (%%SGELSS M-REF12179 N-REF12180 NRHS-REF12181 A-REF12182 LDA-REF12183
       B-REF12184 LDB-REF12185 S-REF12186 RCOND-REF12187 RANK-REF12188
       WORK-REF12189 LWORK-REF12190 INFO-REF12191))))

(CFFI:DEFCFUN ("sgelsy_" %%SGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (JPVT :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELSY
                   (M N NRHS A LDA B LDB JPVT RCOND RANK WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELSY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12192 ':INT32) (N-REF12193 ':INT32)
                              (NRHS-REF12194 ':INT32) (LDA-REF12196 ':INT32)
                              (LDB-REF12198 ':INT32) (RCOND-REF12200 ':FLOAT)
                              (RANK-REF12201 ':INT32) (LWORK-REF12203 ':INT32)
                              (INFO-REF12204 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12192 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12193 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12194 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12196 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12198 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12200 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF12201 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12203 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12204 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12195 A) (B-REF12197 B)
                                            (JPVT-REF12199 JPVT)
                                            (WORK-REF12202 WORK))
      (%%SGELSY M-REF12192 N-REF12193 NRHS-REF12194 A-REF12195 LDA-REF12196
       B-REF12197 LDB-REF12198 JPVT-REF12199 RCOND-REF12200 RANK-REF12201
       WORK-REF12202 LWORK-REF12203 INFO-REF12204))))

(CFFI:DEFCFUN ("sgemlq_" %%SGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEMLQ
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12207 ':INT32) (N-REF12208 ':INT32)
                              (K-REF12209 ':INT32) (LDA-REF12211 ':INT32)
                              (TSIZE-REF12213 ':INT32) (LDC-REF12215 ':INT32)
                              (LWORK-REF12217 ':INT32) (INFO-REF12218 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12207 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12208 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12209 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12211 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12213 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12215 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12217 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12218 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12210 A) (T-REF12212 T)
                                            (C-REF12214 C) (WORK-REF12216 WORK))
      (%%SGEMLQ SIDE TRANS M-REF12207 N-REF12208 K-REF12209 A-REF12210
       LDA-REF12211 T-REF12212 TSIZE-REF12213 C-REF12214 LDC-REF12215
       WORK-REF12216 LWORK-REF12217 INFO-REF12218))))

(CFFI:DEFCFUN ("sgemlqt_" %%SGEMLQT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEMLQT (SIDE TRANS M N K MB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12221 ':INT32) (N-REF12222 ':INT32)
                              (K-REF12223 ':INT32) (MB-REF12224 ':INT32)
                              (LDV-REF12226 ':INT32) (LDT-REF12228 ':INT32)
                              (LDC-REF12230 ':INT32) (INFO-REF12232 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12221 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12222 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12223 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF12224 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12226 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12228 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12230 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12232 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF12225 V) (T-REF12227 T)
                                            (C-REF12229 C) (WORK-REF12231 WORK))
      (%%SGEMLQT SIDE TRANS M-REF12221 N-REF12222 K-REF12223 MB-REF12224
       V-REF12225 LDV-REF12226 T-REF12227 LDT-REF12228 C-REF12229 LDC-REF12230
       WORK-REF12231 INFO-REF12232))))

(CFFI:DEFCFUN ("sgemqr_" %%SGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEMQR
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12235 ':INT32) (N-REF12236 ':INT32)
                              (K-REF12237 ':INT32) (LDA-REF12239 ':INT32)
                              (TSIZE-REF12241 ':INT32) (LDC-REF12243 ':INT32)
                              (LWORK-REF12245 ':INT32) (INFO-REF12246 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12235 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12236 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12237 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12239 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12241 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12243 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12245 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12246 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12238 A) (T-REF12240 T)
                                            (C-REF12242 C) (WORK-REF12244 WORK))
      (%%SGEMQR SIDE TRANS M-REF12235 N-REF12236 K-REF12237 A-REF12238
       LDA-REF12239 T-REF12240 TSIZE-REF12241 C-REF12242 LDC-REF12243
       WORK-REF12244 LWORK-REF12245 INFO-REF12246))))

(CFFI:DEFCFUN ("sgemqrt_" %%SGEMQRT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEMQRT (SIDE TRANS M N K NB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12249 ':INT32) (N-REF12250 ':INT32)
                              (K-REF12251 ':INT32) (NB-REF12252 ':INT32)
                              (LDV-REF12254 ':INT32) (LDT-REF12256 ':INT32)
                              (LDC-REF12258 ':INT32) (INFO-REF12260 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12249 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12250 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12251 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF12252 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12254 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12256 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12258 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12260 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF12253 V) (T-REF12255 T)
                                            (C-REF12257 C) (WORK-REF12259 WORK))
      (%%SGEMQRT SIDE TRANS M-REF12249 N-REF12250 K-REF12251 NB-REF12252
       V-REF12253 LDV-REF12254 T-REF12255 LDT-REF12256 C-REF12257 LDC-REF12258
       WORK-REF12259 INFO-REF12260))))

(CFFI:DEFCFUN ("sgeql2_" %%SGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQL2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12261 ':INT32) (N-REF12262 ':INT32)
                              (LDA-REF12264 ':INT32) (INFO-REF12267 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12261 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12262 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12264 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12267 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12263 A) (TAU-REF12265 TAU)
                                            (WORK-REF12266 WORK))
      (%%SGEQL2 M-REF12261 N-REF12262 A-REF12263 LDA-REF12264 TAU-REF12265
       WORK-REF12266 INFO-REF12267))))

(CFFI:DEFCFUN ("sgeqlf_" %%SGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQLF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQLF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12268 ':INT32) (N-REF12269 ':INT32)
                              (LDA-REF12271 ':INT32) (LWORK-REF12274 ':INT32)
                              (INFO-REF12275 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12268 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12269 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12271 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12274 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12275 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12270 A) (TAU-REF12272 TAU)
                                            (WORK-REF12273 WORK))
      (%%SGEQLF M-REF12268 N-REF12269 A-REF12270 LDA-REF12271 TAU-REF12272
       WORK-REF12273 LWORK-REF12274 INFO-REF12275))))

(CFFI:DEFCFUN ("sgeqp3_" %%SGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQP3 (M N A LDA JPVT TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQP3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12276 ':INT32) (N-REF12277 ':INT32)
                              (LDA-REF12279 ':INT32) (LWORK-REF12283 ':INT32)
                              (INFO-REF12284 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12276 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12277 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12279 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12283 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12284 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12278 A) (JPVT-REF12280 JPVT)
                                            (TAU-REF12281 TAU)
                                            (WORK-REF12282 WORK))
      (%%SGEQP3 M-REF12276 N-REF12277 A-REF12278 LDA-REF12279 JPVT-REF12280
       TAU-REF12281 WORK-REF12282 LWORK-REF12283 INFO-REF12284))))

(CFFI:DEFCFUN ("sgeqr_" %%SGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQR (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12285 ':INT32) (N-REF12286 ':INT32)
                              (LDA-REF12288 ':INT32) (TSIZE-REF12290 ':INT32)
                              (LWORK-REF12292 ':INT32) (INFO-REF12293 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12285 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12286 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12288 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12290 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12292 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12293 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12287 A) (T-REF12289 T)
                                            (WORK-REF12291 WORK))
      (%%SGEQR M-REF12285 N-REF12286 A-REF12287 LDA-REF12288 T-REF12289
       TSIZE-REF12290 WORK-REF12291 LWORK-REF12292 INFO-REF12293))))

(CFFI:DEFCFUN ("sgeqr2_" %%SGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQR2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12294 ':INT32) (N-REF12295 ':INT32)
                              (LDA-REF12297 ':INT32) (INFO-REF12300 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12294 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12295 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12297 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12300 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12296 A) (TAU-REF12298 TAU)
                                            (WORK-REF12299 WORK))
      (%%SGEQR2 M-REF12294 N-REF12295 A-REF12296 LDA-REF12297 TAU-REF12298
       WORK-REF12299 INFO-REF12300))))

(CFFI:DEFCFUN ("sgeqr2p_" %%SGEQR2P :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQR2P (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQR2P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12301 ':INT32) (N-REF12302 ':INT32)
                              (LDA-REF12304 ':INT32) (INFO-REF12307 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12301 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12302 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12304 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12307 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12303 A) (TAU-REF12305 TAU)
                                            (WORK-REF12306 WORK))
      (%%SGEQR2P M-REF12301 N-REF12302 A-REF12303 LDA-REF12304 TAU-REF12305
       WORK-REF12306 INFO-REF12307))))

(CFFI:DEFCFUN ("sgeqrf_" %%SGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQRF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12308 ':INT32) (N-REF12309 ':INT32)
                              (LDA-REF12311 ':INT32) (LWORK-REF12314 ':INT32)
                              (INFO-REF12315 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12308 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12309 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12311 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12314 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12315 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12310 A) (TAU-REF12312 TAU)
                                            (WORK-REF12313 WORK))
      (%%SGEQRF M-REF12308 N-REF12309 A-REF12310 LDA-REF12311 TAU-REF12312
       WORK-REF12313 LWORK-REF12314 INFO-REF12315))))

(CFFI:DEFCFUN ("sgeqrfp_" %%SGEQRFP :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQRFP (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQRFP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12316 ':INT32) (N-REF12317 ':INT32)
                              (LDA-REF12319 ':INT32) (LWORK-REF12322 ':INT32)
                              (INFO-REF12323 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12316 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12317 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12319 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12322 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12323 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12318 A) (TAU-REF12320 TAU)
                                            (WORK-REF12321 WORK))
      (%%SGEQRFP M-REF12316 N-REF12317 A-REF12318 LDA-REF12319 TAU-REF12320
       WORK-REF12321 LWORK-REF12322 INFO-REF12323))))

(CFFI:DEFCFUN ("sgeqrt_" %%SGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQRT (M N NB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12324 ':INT32) (N-REF12325 ':INT32)
                              (NB-REF12326 ':INT32) (LDA-REF12328 ':INT32)
                              (LDT-REF12330 ':INT32) (INFO-REF12332 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12324 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12325 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF12326 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12328 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12330 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12332 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12327 A) (T-REF12329 T)
                                            (WORK-REF12331 WORK))
      (%%SGEQRT M-REF12324 N-REF12325 NB-REF12326 A-REF12327 LDA-REF12328
       T-REF12329 LDT-REF12330 WORK-REF12331 INFO-REF12332))))

(CFFI:DEFCFUN ("sgeqrt2_" %%SGEQRT2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQRT2 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12333 ':INT32) (N-REF12334 ':INT32)
                              (LDA-REF12336 ':INT32) (LDT-REF12338 ':INT32)
                              (INFO-REF12339 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12333 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12334 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12336 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12338 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12339 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12335 A) (T-REF12337 T))
      (%%SGEQRT2 M-REF12333 N-REF12334 A-REF12335 LDA-REF12336 T-REF12337
       LDT-REF12338 INFO-REF12339))))

(CFFI:DEFCFUN ("sgeqrt3_" %%SGEQRT3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQRT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQRT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12340 ':INT32) (N-REF12341 ':INT32)
                              (LDA-REF12343 ':INT32) (LDT-REF12345 ':INT32)
                              (INFO-REF12346 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12340 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12341 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12343 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12345 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12346 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12342 A) (T-REF12344 T))
      (%%SGEQRT3 M-REF12340 N-REF12341 A-REF12342 LDA-REF12343 T-REF12344
       LDT-REF12345 INFO-REF12346))))

(CFFI:DEFCFUN ("sgerfs_" %%SGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGERFS
                   (TRANS N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGERFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12348 ':INT32) (NRHS-REF12349 ':INT32)
                              (LDA-REF12351 ':INT32) (LDAF-REF12353 ':INT32)
                              (LDB-REF12356 ':INT32) (LDX-REF12358 ':INT32)
                              (INFO-REF12363 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12348 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12349 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12351 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12353 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12356 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12358 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12363 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12350 A) (AF-REF12352 AF)
                                            (IPIV-REF12354 IPIV) (B-REF12355 B)
                                            (X-REF12357 X) (FERR-REF12359 FERR)
                                            (BERR-REF12360 BERR)
                                            (WORK-REF12361 WORK)
                                            (IWORK-REF12362 IWORK))
      (%%SGERFS TRANS N-REF12348 NRHS-REF12349 A-REF12350 LDA-REF12351
       AF-REF12352 LDAF-REF12353 IPIV-REF12354 B-REF12355 LDB-REF12356
       X-REF12357 LDX-REF12358 FERR-REF12359 BERR-REF12360 WORK-REF12361
       IWORK-REF12362 INFO-REF12363))))

(CFFI:DEFCFUN ("sgerfsx_" %%SGERFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGERFSX
                   (TRANS EQUED N NRHS A LDA AF LDAF IPIV R C B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGERFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12366 ':INT32) (NRHS-REF12367 ':INT32)
                              (LDA-REF12369 ':INT32) (LDAF-REF12371 ':INT32)
                              (LDB-REF12376 ':INT32) (LDX-REF12378 ':INT32)
                              (RCOND-REF12379 ':FLOAT)
                              (N_ERR_BNDS-REF12381 ':INT32)
                              (NPARAMS-REF12384 ':INT32)
                              (INFO-REF12388 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12366 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12367 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12369 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12371 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12376 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12378 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12379 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF12381 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF12384 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12388 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12368 A) (AF-REF12370 AF)
                                            (IPIV-REF12372 IPIV) (R-REF12373 R)
                                            (C-REF12374 C) (B-REF12375 B)
                                            (X-REF12377 X) (BERR-REF12380 BERR)
                                            (ERR_BNDS_NORM-REF12382
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF12383
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF12385 PARAMS)
                                            (WORK-REF12386 WORK)
                                            (IWORK-REF12387 IWORK))
      (%%SGERFSX TRANS EQUED N-REF12366 NRHS-REF12367 A-REF12368 LDA-REF12369
       AF-REF12370 LDAF-REF12371 IPIV-REF12372 R-REF12373 C-REF12374 B-REF12375
       LDB-REF12376 X-REF12377 LDX-REF12378 RCOND-REF12379 BERR-REF12380
       N_ERR_BNDS-REF12381 ERR_BNDS_NORM-REF12382 ERR_BNDS_COMP-REF12383
       NPARAMS-REF12384 PARAMS-REF12385 WORK-REF12386 IWORK-REF12387
       INFO-REF12388))))

(CFFI:DEFCFUN ("sgerq2_" %%SGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGERQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGERQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12389 ':INT32) (N-REF12390 ':INT32)
                              (LDA-REF12392 ':INT32) (INFO-REF12395 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12389 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12390 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12392 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12395 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12391 A) (TAU-REF12393 TAU)
                                            (WORK-REF12394 WORK))
      (%%SGERQ2 M-REF12389 N-REF12390 A-REF12391 LDA-REF12392 TAU-REF12393
       WORK-REF12394 INFO-REF12395))))

(CFFI:DEFCFUN ("sgerqf_" %%SGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGERQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGERQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12396 ':INT32) (N-REF12397 ':INT32)
                              (LDA-REF12399 ':INT32) (LWORK-REF12402 ':INT32)
                              (INFO-REF12403 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12396 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12397 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12399 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12402 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12403 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12398 A) (TAU-REF12400 TAU)
                                            (WORK-REF12401 WORK))
      (%%SGERQF M-REF12396 N-REF12397 A-REF12398 LDA-REF12399 TAU-REF12400
       WORK-REF12401 LWORK-REF12402 INFO-REF12403))))

(CFFI:DEFCFUN ("sgesc2_" %%SGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RHS :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (SCALE :POINTER))

(COMMON-LISP:DEFUN %SGESC2 (N A LDA RHS IPIV JPIV SCALE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12404 ':INT32) (LDA-REF12406 ':INT32)
                              (SCALE-REF12410 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12404 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12406 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF12410 :FLOAT) SCALE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12405 A) (RHS-REF12407 RHS)
                                            (IPIV-REF12408 IPIV)
                                            (JPIV-REF12409 JPIV))
      (%%SGESC2 N-REF12404 A-REF12405 LDA-REF12406 RHS-REF12407 IPIV-REF12408
       JPIV-REF12409 SCALE-REF12410))))

(CFFI:DEFCFUN ("sgesdd_" %%SGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESDD
                   (JOBZ M N A LDA S U LDU VT LDVT WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESDD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12412 ':INT32) (N-REF12413 ':INT32)
                              (LDA-REF12415 ':INT32) (LDU-REF12418 ':INT32)
                              (LDVT-REF12420 ':INT32) (LWORK-REF12422 ':INT32)
                              (INFO-REF12424 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12412 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12413 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12415 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12418 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF12420 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12422 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12424 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12414 A) (S-REF12416 S)
                                            (U-REF12417 U) (VT-REF12419 VT)
                                            (WORK-REF12421 WORK)
                                            (IWORK-REF12423 IWORK))
      (%%SGESDD JOBZ M-REF12412 N-REF12413 A-REF12414 LDA-REF12415 S-REF12416
       U-REF12417 LDU-REF12418 VT-REF12419 LDVT-REF12420 WORK-REF12421
       LWORK-REF12422 IWORK-REF12423 INFO-REF12424))))

(CFFI:DEFCFUN ("sgesv_" %%SGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESV (N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12425 ':INT32) (NRHS-REF12426 ':INT32)
                              (LDA-REF12428 ':INT32) (LDB-REF12431 ':INT32)
                              (INFO-REF12432 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12425 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12426 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12428 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12431 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12432 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12427 A) (IPIV-REF12429 IPIV)
                                            (B-REF12430 B))
      (%%SGESV N-REF12425 NRHS-REF12426 A-REF12427 LDA-REF12428 IPIV-REF12429
       B-REF12430 LDB-REF12431 INFO-REF12432))))

(CFFI:DEFCFUN ("sgesvd_" %%SGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESVD
                   (JOBU JOBVT M N A LDA S U LDU VT LDVT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12435 ':INT32) (N-REF12436 ':INT32)
                              (LDA-REF12438 ':INT32) (LDU-REF12441 ':INT32)
                              (LDVT-REF12443 ':INT32) (LWORK-REF12445 ':INT32)
                              (INFO-REF12446 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12435 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12436 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12438 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12441 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF12443 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12445 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12446 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12437 A) (S-REF12439 S)
                                            (U-REF12440 U) (VT-REF12442 VT)
                                            (WORK-REF12444 WORK))
      (%%SGESVD JOBU JOBVT M-REF12435 N-REF12436 A-REF12437 LDA-REF12438
       S-REF12439 U-REF12440 LDU-REF12441 VT-REF12442 LDVT-REF12443
       WORK-REF12444 LWORK-REF12445 INFO-REF12446))))

(CFFI:DEFCFUN ("sgesvdq_" %%SGESVDQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBP :STRING)
  (JOBR :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NUMRANK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESVDQ
                   (JOBA JOBP JOBR JOBU JOBV M N A LDA S U LDU V LDV NUMRANK
                    IWORK LIWORK WORK LWORK RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NUMRANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12452 ':INT32) (N-REF12453 ':INT32)
                              (LDA-REF12455 ':INT32) (LDU-REF12458 ':INT32)
                              (LDV-REF12460 ':INT32) (NUMRANK-REF12461 ':INT32)
                              (LIWORK-REF12463 ':INT32)
                              (LWORK-REF12465 ':INT32)
                              (LRWORK-REF12467 ':INT32) (INFO-REF12468 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12452 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12453 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12455 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12458 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12460 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF12461 :INT32) NUMRANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF12463 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12465 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF12467 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12468 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12454 A) (S-REF12456 S)
                                            (U-REF12457 U) (V-REF12459 V)
                                            (IWORK-REF12462 IWORK)
                                            (WORK-REF12464 WORK)
                                            (RWORK-REF12466 RWORK))
      (%%SGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF12452 N-REF12453 A-REF12454
       LDA-REF12455 S-REF12456 U-REF12457 LDU-REF12458 V-REF12459 LDV-REF12460
       NUMRANK-REF12461 IWORK-REF12462 LIWORK-REF12463 WORK-REF12464
       LWORK-REF12465 RWORK-REF12466 LRWORK-REF12467 INFO-REF12468))))

(CFFI:DEFCFUN ("sgesvdx_" %%SGESVDX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (RANGE :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (NS :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESVDX
                   (JOBU JOBVT RANGE M N A LDA VL VU IL IU NS S U LDU VT LDVT
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVDX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12472 ':INT32) (N-REF12473 ':INT32)
                              (LDA-REF12475 ':INT32) (VL-REF12476 ':FLOAT)
                              (VU-REF12477 ':FLOAT) (IL-REF12478 ':INT32)
                              (IU-REF12479 ':INT32) (NS-REF12480 ':INT32)
                              (LDU-REF12483 ':INT32) (LDVT-REF12485 ':INT32)
                              (LWORK-REF12487 ':INT32) (INFO-REF12489 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12472 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12473 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12475 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF12476 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF12477 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF12478 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF12479 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF12480 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12483 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF12485 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12487 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12489 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12474 A) (S-REF12481 S)
                                            (U-REF12482 U) (VT-REF12484 VT)
                                            (WORK-REF12486 WORK)
                                            (IWORK-REF12488 IWORK))
      (%%SGESVDX JOBU JOBVT RANGE M-REF12472 N-REF12473 A-REF12474 LDA-REF12475
       VL-REF12476 VU-REF12477 IL-REF12478 IU-REF12479 NS-REF12480 S-REF12481
       U-REF12482 LDU-REF12483 VT-REF12484 LDVT-REF12485 WORK-REF12486
       LWORK-REF12487 IWORK-REF12488 INFO-REF12489))))

(CFFI:DEFCFUN ("sgesvj_" %%SGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESVJ
                   (JOBA JOBU JOBV M N A LDA SVA MV V LDV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVJ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12493 ':INT32) (N-REF12494 ':INT32)
                              (LDA-REF12496 ':INT32) (MV-REF12498 ':INT32)
                              (LDV-REF12500 ':INT32) (LWORK-REF12502 ':INT32)
                              (INFO-REF12503 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12493 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12494 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12496 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF12498 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12500 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12502 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12503 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12495 A) (SVA-REF12497 SVA)
                                            (V-REF12499 V) (WORK-REF12501 WORK))
      (%%SGESVJ JOBA JOBU JOBV M-REF12493 N-REF12494 A-REF12495 LDA-REF12496
       SVA-REF12497 MV-REF12498 V-REF12499 LDV-REF12500 WORK-REF12501
       LWORK-REF12502 INFO-REF12503))))

(CFFI:DEFCFUN ("sgesvx_" %%SGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESVX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12506 ':INT32) (NRHS-REF12507 ':INT32)
                              (LDA-REF12509 ':INT32) (LDAF-REF12511 ':INT32)
                              (LDB-REF12517 ':INT32) (LDX-REF12519 ':INT32)
                              (RCOND-REF12520 ':FLOAT) (INFO-REF12525 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12506 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12507 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12509 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12511 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12517 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12519 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12520 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12525 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12508 A) (AF-REF12510 AF)
                                            (IPIV-REF12512 IPIV) (R-REF12514 R)
                                            (C-REF12515 C) (B-REF12516 B)
                                            (X-REF12518 X) (FERR-REF12521 FERR)
                                            (BERR-REF12522 BERR)
                                            (WORK-REF12523 WORK)
                                            (IWORK-REF12524 IWORK))
      (%%SGESVX FACT TRANS N-REF12506 NRHS-REF12507 A-REF12508 LDA-REF12509
       AF-REF12510 LDAF-REF12511 IPIV-REF12512 EQUED R-REF12514 C-REF12515
       B-REF12516 LDB-REF12517 X-REF12518 LDX-REF12519 RCOND-REF12520
       FERR-REF12521 BERR-REF12522 WORK-REF12523 IWORK-REF12524
       INFO-REF12525))))

(CFFI:DEFCFUN ("sgesvxx_" %%SGESVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESVXX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12528 ':INT32) (NRHS-REF12529 ':INT32)
                              (LDA-REF12531 ':INT32) (LDAF-REF12533 ':INT32)
                              (LDB-REF12539 ':INT32) (LDX-REF12541 ':INT32)
                              (RCOND-REF12542 ':FLOAT)
                              (RPVGRW-REF12543 ':FLOAT)
                              (N_ERR_BNDS-REF12545 ':INT32)
                              (NPARAMS-REF12548 ':INT32)
                              (INFO-REF12552 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12528 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12529 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12531 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12533 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12539 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12541 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12542 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF12543 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF12545 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF12548 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12552 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12530 A) (AF-REF12532 AF)
                                            (IPIV-REF12534 IPIV) (R-REF12536 R)
                                            (C-REF12537 C) (B-REF12538 B)
                                            (X-REF12540 X) (BERR-REF12544 BERR)
                                            (ERR_BNDS_NORM-REF12546
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF12547
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF12549 PARAMS)
                                            (WORK-REF12550 WORK)
                                            (IWORK-REF12551 IWORK))
      (%%SGESVXX FACT TRANS N-REF12528 NRHS-REF12529 A-REF12530 LDA-REF12531
       AF-REF12532 LDAF-REF12533 IPIV-REF12534 EQUED R-REF12536 C-REF12537
       B-REF12538 LDB-REF12539 X-REF12540 LDX-REF12541 RCOND-REF12542
       RPVGRW-REF12543 BERR-REF12544 N_ERR_BNDS-REF12545 ERR_BNDS_NORM-REF12546
       ERR_BNDS_COMP-REF12547 NPARAMS-REF12548 PARAMS-REF12549 WORK-REF12550
       IWORK-REF12551 INFO-REF12552))))

(CFFI:DEFCFUN ("sgetc2_" %%SGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGETC2 (N A LDA IPIV JPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12553 ':INT32) (LDA-REF12555 ':INT32)
                              (INFO-REF12558 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12553 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12555 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12558 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12554 A) (IPIV-REF12556 IPIV)
                                            (JPIV-REF12557 JPIV))
      (%%SGETC2 N-REF12553 A-REF12554 LDA-REF12555 IPIV-REF12556 JPIV-REF12557
       INFO-REF12558))))

(CFFI:DEFCFUN ("sgetf2_" %%SGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGETF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12559 ':INT32) (N-REF12560 ':INT32)
                              (LDA-REF12562 ':INT32) (INFO-REF12564 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12559 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12560 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12562 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12564 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12561 A) (IPIV-REF12563 IPIV))
      (%%SGETF2 M-REF12559 N-REF12560 A-REF12561 LDA-REF12562 IPIV-REF12563
       INFO-REF12564))))

(CFFI:DEFCFUN ("sgetrf_" %%SGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGETRF (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12565 ':INT32) (N-REF12566 ':INT32)
                              (LDA-REF12568 ':INT32) (INFO-REF12570 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12565 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12566 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12568 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12570 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12567 A) (IPIV-REF12569 IPIV))
      (%%SGETRF M-REF12565 N-REF12566 A-REF12567 LDA-REF12568 IPIV-REF12569
       INFO-REF12570))))

(CFFI:DEFCFUN ("sgetrf2_" %%SGETRF2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGETRF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETRF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12571 ':INT32) (N-REF12572 ':INT32)
                              (LDA-REF12574 ':INT32) (INFO-REF12576 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12571 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12572 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12574 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12576 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12573 A) (IPIV-REF12575 IPIV))
      (%%SGETRF2 M-REF12571 N-REF12572 A-REF12573 LDA-REF12574 IPIV-REF12575
       INFO-REF12576))))

(CFFI:DEFCFUN ("sgetri_" %%SGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGETRI (N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETRI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12577 ':INT32) (LDA-REF12579 ':INT32)
                              (LWORK-REF12582 ':INT32) (INFO-REF12583 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12577 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12579 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12582 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12583 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12578 A) (IPIV-REF12580 IPIV)
                                            (WORK-REF12581 WORK))
      (%%SGETRI N-REF12577 A-REF12578 LDA-REF12579 IPIV-REF12580 WORK-REF12581
       LWORK-REF12582 INFO-REF12583))))

(CFFI:DEFCFUN ("sgetrs_" %%SGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGETRS (TRANS N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12585 ':INT32) (NRHS-REF12586 ':INT32)
                              (LDA-REF12588 ':INT32) (LDB-REF12591 ':INT32)
                              (INFO-REF12592 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12585 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12586 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12588 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12591 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12592 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12587 A) (IPIV-REF12589 IPIV)
                                            (B-REF12590 B))
      (%%SGETRS TRANS N-REF12585 NRHS-REF12586 A-REF12587 LDA-REF12588
       IPIV-REF12589 B-REF12590 LDB-REF12591 INFO-REF12592))))

(CFFI:DEFCFUN ("sgetsls_" %%SGETSLS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGETSLS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETSLS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12594 ':INT32) (N-REF12595 ':INT32)
                              (NRHS-REF12596 ':INT32) (LDA-REF12598 ':INT32)
                              (LDB-REF12600 ':INT32) (LWORK-REF12602 ':INT32)
                              (INFO-REF12603 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12594 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12595 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12596 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12598 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12600 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12602 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12603 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12597 A) (B-REF12599 B)
                                            (WORK-REF12601 WORK))
      (%%SGETSLS TRANS M-REF12594 N-REF12595 NRHS-REF12596 A-REF12597
       LDA-REF12598 B-REF12599 LDB-REF12600 WORK-REF12601 LWORK-REF12602
       INFO-REF12603))))

(CFFI:DEFCFUN ("sggbak_" %%SGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGBAK (JOB SIDE N ILO IHI LSCALE RSCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12606 ':INT32) (ILO-REF12607 ':INT32)
                              (IHI-REF12608 ':INT32) (M-REF12611 ':INT32)
                              (LDV-REF12613 ':INT32) (INFO-REF12614 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12606 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12607 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12608 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12611 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12613 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12614 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF12609 LSCALE)
                                            (RSCALE-REF12610 RSCALE)
                                            (V-REF12612 V))
      (%%SGGBAK JOB SIDE N-REF12606 ILO-REF12607 IHI-REF12608 LSCALE-REF12609
       RSCALE-REF12610 M-REF12611 V-REF12612 LDV-REF12613 INFO-REF12614))))

(CFFI:DEFCFUN ("sggbal_" %%SGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGBAL (JOB N A LDA B LDB ILO IHI LSCALE RSCALE WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12616 ':INT32) (LDA-REF12618 ':INT32)
                              (LDB-REF12620 ':INT32) (ILO-REF12621 ':INT32)
                              (IHI-REF12622 ':INT32) (INFO-REF12626 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12616 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12618 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12620 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12621 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12622 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12626 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12617 A) (B-REF12619 B)
                                            (LSCALE-REF12623 LSCALE)
                                            (RSCALE-REF12624 RSCALE)
                                            (WORK-REF12625 WORK))
      (%%SGGBAL JOB N-REF12616 A-REF12617 LDA-REF12618 B-REF12619 LDB-REF12620
       ILO-REF12621 IHI-REF12622 LSCALE-REF12623 RSCALE-REF12624 WORK-REF12625
       INFO-REF12626))))

(CFFI:DEFCFUN ("sgges_" %%SGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGES
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHAR ALPHAI
                    BETA VSL LDVSL VSR LDVSR WORK LWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF12630 ':INT32) (N-REF12631 ':INT32)
                              (LDA-REF12633 ':INT32) (LDB-REF12635 ':INT32)
                              (SDIM-REF12636 ':INT32) (LDVSL-REF12641 ':INT32)
                              (LDVSR-REF12643 ':INT32) (LWORK-REF12645 ':INT32)
                              (INFO-REF12647 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF12630 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12631 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12633 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12635 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12636 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF12641 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF12643 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12645 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12647 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12632 A) (B-REF12634 B)
                                            (ALPHAR-REF12637 ALPHAR)
                                            (ALPHAI-REF12638 ALPHAI)
                                            (BETA-REF12639 BETA)
                                            (VSL-REF12640 VSL)
                                            (VSR-REF12642 VSR)
                                            (WORK-REF12644 WORK)
                                            (BWORK-REF12646 BWORK))
      (%%SGGES JOBVSL JOBVSR SORT SELCTG-REF12630 N-REF12631 A-REF12632
       LDA-REF12633 B-REF12634 LDB-REF12635 SDIM-REF12636 ALPHAR-REF12637
       ALPHAI-REF12638 BETA-REF12639 VSL-REF12640 LDVSL-REF12641 VSR-REF12642
       LDVSR-REF12643 WORK-REF12644 LWORK-REF12645 BWORK-REF12646
       INFO-REF12647))))

(CFFI:DEFCFUN ("sgges3_" %%SGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGES3
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHAR ALPHAI
                    BETA VSL LDVSL VSR LDVSR WORK LWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGES3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF12651 ':INT32) (N-REF12652 ':INT32)
                              (LDA-REF12654 ':INT32) (LDB-REF12656 ':INT32)
                              (SDIM-REF12657 ':INT32) (LDVSL-REF12662 ':INT32)
                              (LDVSR-REF12664 ':INT32) (LWORK-REF12666 ':INT32)
                              (INFO-REF12668 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF12651 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12652 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12654 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12656 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12657 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF12662 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF12664 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12666 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12668 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12653 A) (B-REF12655 B)
                                            (ALPHAR-REF12658 ALPHAR)
                                            (ALPHAI-REF12659 ALPHAI)
                                            (BETA-REF12660 BETA)
                                            (VSL-REF12661 VSL)
                                            (VSR-REF12663 VSR)
                                            (WORK-REF12665 WORK)
                                            (BWORK-REF12667 BWORK))
      (%%SGGES3 JOBVSL JOBVSR SORT SELCTG-REF12651 N-REF12652 A-REF12653
       LDA-REF12654 B-REF12655 LDB-REF12656 SDIM-REF12657 ALPHAR-REF12658
       ALPHAI-REF12659 BETA-REF12660 VSL-REF12661 LDVSL-REF12662 VSR-REF12663
       LDVSR-REF12664 WORK-REF12665 LWORK-REF12666 BWORK-REF12667
       INFO-REF12668))))

(CFFI:DEFCFUN ("sggesx_" %%SGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGESX
                   (JOBVSL JOBVSR SORT SELCTG SENSE N A LDA B LDB SDIM ALPHAR
                    ALPHAI BETA VSL LDVSL VSR LDVSR RCONDE RCONDV WORK LWORK
                    IWORK LIWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF12672 ':INT32) (N-REF12674 ':INT32)
                              (LDA-REF12676 ':INT32) (LDB-REF12678 ':INT32)
                              (SDIM-REF12679 ':INT32) (LDVSL-REF12684 ':INT32)
                              (LDVSR-REF12686 ':INT32) (LWORK-REF12690 ':INT32)
                              (LIWORK-REF12692 ':INT32) (INFO-REF12694 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF12672 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12674 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12676 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12678 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12679 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF12684 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF12686 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12690 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF12692 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12694 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12675 A) (B-REF12677 B)
                                            (ALPHAR-REF12680 ALPHAR)
                                            (ALPHAI-REF12681 ALPHAI)
                                            (BETA-REF12682 BETA)
                                            (VSL-REF12683 VSL)
                                            (VSR-REF12685 VSR)
                                            (RCONDE-REF12687 RCONDE)
                                            (RCONDV-REF12688 RCONDV)
                                            (WORK-REF12689 WORK)
                                            (IWORK-REF12691 IWORK)
                                            (BWORK-REF12693 BWORK))
      (%%SGGESX JOBVSL JOBVSR SORT SELCTG-REF12672 SENSE N-REF12674 A-REF12675
       LDA-REF12676 B-REF12677 LDB-REF12678 SDIM-REF12679 ALPHAR-REF12680
       ALPHAI-REF12681 BETA-REF12682 VSL-REF12683 LDVSL-REF12684 VSR-REF12685
       LDVSR-REF12686 RCONDE-REF12687 RCONDV-REF12688 WORK-REF12689
       LWORK-REF12690 IWORK-REF12691 LIWORK-REF12692 BWORK-REF12693
       INFO-REF12694))))

(CFFI:DEFCFUN ("sggev_" %%SGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGEV
                   (JOBVL JOBVR N A LDA B LDB ALPHAR ALPHAI BETA VL LDVL VR
                    LDVR WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12697 ':INT32) (LDA-REF12699 ':INT32)
                              (LDB-REF12701 ':INT32) (LDVL-REF12706 ':INT32)
                              (LDVR-REF12708 ':INT32) (LWORK-REF12710 ':INT32)
                              (INFO-REF12711 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12697 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12699 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12701 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12706 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12708 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12710 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12711 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12698 A) (B-REF12700 B)
                                            (ALPHAR-REF12702 ALPHAR)
                                            (ALPHAI-REF12703 ALPHAI)
                                            (BETA-REF12704 BETA)
                                            (VL-REF12705 VL) (VR-REF12707 VR)
                                            (WORK-REF12709 WORK))
      (%%SGGEV JOBVL JOBVR N-REF12697 A-REF12698 LDA-REF12699 B-REF12700
       LDB-REF12701 ALPHAR-REF12702 ALPHAI-REF12703 BETA-REF12704 VL-REF12705
       LDVL-REF12706 VR-REF12707 LDVR-REF12708 WORK-REF12709 LWORK-REF12710
       INFO-REF12711))))

(CFFI:DEFCFUN ("sggev3_" %%SGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGEV3
                   (JOBVL JOBVR N A LDA B LDB ALPHAR ALPHAI BETA VL LDVL VR
                    LDVR WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGEV3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12714 ':INT32) (LDA-REF12716 ':INT32)
                              (LDB-REF12718 ':INT32) (LDVL-REF12723 ':INT32)
                              (LDVR-REF12725 ':INT32) (LWORK-REF12727 ':INT32)
                              (INFO-REF12728 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12714 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12716 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12718 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12723 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12725 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12727 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12728 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12715 A) (B-REF12717 B)
                                            (ALPHAR-REF12719 ALPHAR)
                                            (ALPHAI-REF12720 ALPHAI)
                                            (BETA-REF12721 BETA)
                                            (VL-REF12722 VL) (VR-REF12724 VR)
                                            (WORK-REF12726 WORK))
      (%%SGGEV3 JOBVL JOBVR N-REF12714 A-REF12715 LDA-REF12716 B-REF12717
       LDB-REF12718 ALPHAR-REF12719 ALPHAI-REF12720 BETA-REF12721 VL-REF12722
       LDVL-REF12723 VR-REF12724 LDVR-REF12725 WORK-REF12726 LWORK-REF12727
       INFO-REF12728))))

(CFFI:DEFCFUN ("sggevx_" %%SGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (ABNRM :POINTER)
  (BBNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA B LDB ALPHAR ALPHAI BETA
                    VL LDVL VR LDVR ILO IHI LSCALE RSCALE ABNRM BBNRM RCONDE
                    RCONDV WORK LWORK IWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BBNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12733 ':INT32) (LDA-REF12735 ':INT32)
                              (LDB-REF12737 ':INT32) (LDVL-REF12742 ':INT32)
                              (LDVR-REF12744 ':INT32) (ILO-REF12745 ':INT32)
                              (IHI-REF12746 ':INT32) (ABNRM-REF12749 ':FLOAT)
                              (BBNRM-REF12750 ':FLOAT) (LWORK-REF12754 ':INT32)
                              (INFO-REF12757 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12733 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12735 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12737 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12742 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12744 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12745 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12746 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF12749 :FLOAT) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF12750 :FLOAT) BBNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12754 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12757 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12734 A) (B-REF12736 B)
                                            (ALPHAR-REF12738 ALPHAR)
                                            (ALPHAI-REF12739 ALPHAI)
                                            (BETA-REF12740 BETA)
                                            (VL-REF12741 VL) (VR-REF12743 VR)
                                            (LSCALE-REF12747 LSCALE)
                                            (RSCALE-REF12748 RSCALE)
                                            (RCONDE-REF12751 RCONDE)
                                            (RCONDV-REF12752 RCONDV)
                                            (WORK-REF12753 WORK)
                                            (IWORK-REF12755 IWORK)
                                            (BWORK-REF12756 BWORK))
      (%%SGGEVX BALANC JOBVL JOBVR SENSE N-REF12733 A-REF12734 LDA-REF12735
       B-REF12736 LDB-REF12737 ALPHAR-REF12738 ALPHAI-REF12739 BETA-REF12740
       VL-REF12741 LDVL-REF12742 VR-REF12743 LDVR-REF12744 ILO-REF12745
       IHI-REF12746 LSCALE-REF12747 RSCALE-REF12748 ABNRM-REF12749
       BBNRM-REF12750 RCONDE-REF12751 RCONDV-REF12752 WORK-REF12753
       LWORK-REF12754 IWORK-REF12755 BWORK-REF12756 INFO-REF12757))))

(CFFI:DEFCFUN ("sggglm_" %%SGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (D :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGGLM (N M P A LDA B LDB D X Y WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGGLM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12758 ':INT32) (M-REF12759 ':INT32)
                              (P-REF12760 ':INT32) (LDA-REF12762 ':INT32)
                              (LDB-REF12764 ':INT32) (LWORK-REF12769 ':INT32)
                              (INFO-REF12770 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12758 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12759 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12760 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12762 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12764 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12769 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12770 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12761 A) (B-REF12763 B)
                                            (D-REF12765 D) (X-REF12766 X)
                                            (Y-REF12767 Y) (WORK-REF12768 WORK))
      (%%SGGGLM N-REF12758 M-REF12759 P-REF12760 A-REF12761 LDA-REF12762
       B-REF12763 LDB-REF12764 D-REF12765 X-REF12766 Y-REF12767 WORK-REF12768
       LWORK-REF12769 INFO-REF12770))))

(CFFI:DEFCFUN ("sgghd3_" %%SGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGHD3
                   (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGHD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12773 ':INT32) (ILO-REF12774 ':INT32)
                              (IHI-REF12775 ':INT32) (LDA-REF12777 ':INT32)
                              (LDB-REF12779 ':INT32) (LDQ-REF12781 ':INT32)
                              (LDZ-REF12783 ':INT32) (LWORK-REF12785 ':INT32)
                              (INFO-REF12786 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12773 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12774 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12775 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12777 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12779 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12781 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF12783 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12785 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12786 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12776 A) (B-REF12778 B)
                                            (Q-REF12780 Q) (Z-REF12782 Z)
                                            (WORK-REF12784 WORK))
      (%%SGGHD3 COMPQ COMPZ N-REF12773 ILO-REF12774 IHI-REF12775 A-REF12776
       LDA-REF12777 B-REF12778 LDB-REF12779 Q-REF12780 LDQ-REF12781 Z-REF12782
       LDZ-REF12783 WORK-REF12784 LWORK-REF12785 INFO-REF12786))))

(CFFI:DEFCFUN ("sgghrd_" %%SGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGHRD (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGHRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12789 ':INT32) (ILO-REF12790 ':INT32)
                              (IHI-REF12791 ':INT32) (LDA-REF12793 ':INT32)
                              (LDB-REF12795 ':INT32) (LDQ-REF12797 ':INT32)
                              (LDZ-REF12799 ':INT32) (INFO-REF12800 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12789 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12790 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12791 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12793 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12795 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12797 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF12799 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12800 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12792 A) (B-REF12794 B)
                                            (Q-REF12796 Q) (Z-REF12798 Z))
      (%%SGGHRD COMPQ COMPZ N-REF12789 ILO-REF12790 IHI-REF12791 A-REF12792
       LDA-REF12793 B-REF12794 LDB-REF12795 Q-REF12796 LDQ-REF12797 Z-REF12798
       LDZ-REF12799 INFO-REF12800))))

(CFFI:DEFCFUN ("sgglse_" %%SGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (D :POINTER)
  (X :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGLSE (M N P A LDA B LDB C D X WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGLSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12801 ':INT32) (N-REF12802 ':INT32)
                              (P-REF12803 ':INT32) (LDA-REF12805 ':INT32)
                              (LDB-REF12807 ':INT32) (LWORK-REF12812 ':INT32)
                              (INFO-REF12813 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12801 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12802 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12803 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12805 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12807 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12812 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12813 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12804 A) (B-REF12806 B)
                                            (C-REF12808 C) (D-REF12809 D)
                                            (X-REF12810 X) (WORK-REF12811 WORK))
      (%%SGGLSE M-REF12801 N-REF12802 P-REF12803 A-REF12804 LDA-REF12805
       B-REF12806 LDB-REF12807 C-REF12808 D-REF12809 X-REF12810 WORK-REF12811
       LWORK-REF12812 INFO-REF12813))))

(CFFI:DEFCFUN ("sggqrf_" %%SGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGQRF (N M P A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12814 ':INT32) (M-REF12815 ':INT32)
                              (P-REF12816 ':INT32) (LDA-REF12818 ':INT32)
                              (LDB-REF12821 ':INT32) (LWORK-REF12824 ':INT32)
                              (INFO-REF12825 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12814 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12815 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12816 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12818 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12821 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12824 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12825 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12817 A) (TAUA-REF12819 TAUA)
                                            (B-REF12820 B) (TAUB-REF12822 TAUB)
                                            (WORK-REF12823 WORK))
      (%%SGGQRF N-REF12814 M-REF12815 P-REF12816 A-REF12817 LDA-REF12818
       TAUA-REF12819 B-REF12820 LDB-REF12821 TAUB-REF12822 WORK-REF12823
       LWORK-REF12824 INFO-REF12825))))

(CFFI:DEFCFUN ("sggrqf_" %%SGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGRQF (M P N A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGRQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12826 ':INT32) (P-REF12827 ':INT32)
                              (N-REF12828 ':INT32) (LDA-REF12830 ':INT32)
                              (LDB-REF12833 ':INT32) (LWORK-REF12836 ':INT32)
                              (INFO-REF12837 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12826 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12827 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12828 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12830 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12833 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12836 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12837 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12829 A) (TAUA-REF12831 TAUA)
                                            (B-REF12832 B) (TAUB-REF12834 TAUB)
                                            (WORK-REF12835 WORK))
      (%%SGGRQF M-REF12826 P-REF12827 N-REF12828 A-REF12829 LDA-REF12830
       TAUA-REF12831 B-REF12832 LDB-REF12833 TAUB-REF12834 WORK-REF12835
       LWORK-REF12836 INFO-REF12837))))

(CFFI:DEFCFUN ("sggsvd3_" %%SGGSVD3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGSVD3
                   (JOBU JOBV JOBQ M N P K L A LDA B LDB ALPHA BETA U LDU V LDV
                    Q LDQ WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGSVD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12841 ':INT32) (N-REF12842 ':INT32)
                              (P-REF12843 ':INT32) (K-REF12844 ':INT32)
                              (L-REF12845 ':INT32) (LDA-REF12847 ':INT32)
                              (LDB-REF12849 ':INT32) (LDU-REF12853 ':INT32)
                              (LDV-REF12855 ':INT32) (LDQ-REF12857 ':INT32)
                              (LWORK-REF12859 ':INT32) (INFO-REF12861 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12841 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12842 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12843 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12844 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF12845 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12847 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12849 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12853 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12855 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12857 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12859 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12861 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12846 A) (B-REF12848 B)
                                            (ALPHA-REF12850 ALPHA)
                                            (BETA-REF12851 BETA) (U-REF12852 U)
                                            (V-REF12854 V) (Q-REF12856 Q)
                                            (WORK-REF12858 WORK)
                                            (IWORK-REF12860 IWORK))
      (%%SGGSVD3 JOBU JOBV JOBQ M-REF12841 N-REF12842 P-REF12843 K-REF12844
       L-REF12845 A-REF12846 LDA-REF12847 B-REF12848 LDB-REF12849
       ALPHA-REF12850 BETA-REF12851 U-REF12852 LDU-REF12853 V-REF12854
       LDV-REF12855 Q-REF12856 LDQ-REF12857 WORK-REF12858 LWORK-REF12859
       IWORK-REF12860 INFO-REF12861))))

(CFFI:DEFCFUN ("sggsvp3_" %%SGGSVP3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (K :POINTER)
  (L :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IWORK :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGSVP3
                   (JOBU JOBV JOBQ M P N A LDA B LDB TOLA TOLB K L U LDU V LDV
                    Q LDQ IWORK TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGSVP3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12865 ':INT32) (P-REF12866 ':INT32)
                              (N-REF12867 ':INT32) (LDA-REF12869 ':INT32)
                              (LDB-REF12871 ':INT32) (TOLA-REF12872 ':FLOAT)
                              (TOLB-REF12873 ':FLOAT) (K-REF12874 ':INT32)
                              (L-REF12875 ':INT32) (LDU-REF12877 ':INT32)
                              (LDV-REF12879 ':INT32) (LDQ-REF12881 ':INT32)
                              (LWORK-REF12885 ':INT32) (INFO-REF12886 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12865 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12866 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12867 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12869 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12871 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF12872 :FLOAT) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF12873 :FLOAT) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12874 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF12875 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12877 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12879 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12881 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12885 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12886 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12868 A) (B-REF12870 B)
                                            (U-REF12876 U) (V-REF12878 V)
                                            (Q-REF12880 Q)
                                            (IWORK-REF12882 IWORK)
                                            (TAU-REF12883 TAU)
                                            (WORK-REF12884 WORK))
      (%%SGGSVP3 JOBU JOBV JOBQ M-REF12865 P-REF12866 N-REF12867 A-REF12868
       LDA-REF12869 B-REF12870 LDB-REF12871 TOLA-REF12872 TOLB-REF12873
       K-REF12874 L-REF12875 U-REF12876 LDU-REF12877 V-REF12878 LDV-REF12879
       Q-REF12880 LDQ-REF12881 IWORK-REF12882 TAU-REF12883 WORK-REF12884
       LWORK-REF12885 INFO-REF12886))))

(CFFI:DEFCFUN ("sgsvj0_" %%SGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGSVJ0
                   (JOBV M N A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGSVJ0)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12888 ':INT32) (N-REF12889 ':INT32)
                              (LDA-REF12891 ':INT32) (MV-REF12894 ':INT32)
                              (LDV-REF12896 ':INT32) (EPS-REF12897 ':FLOAT)
                              (SFMIN-REF12898 ':FLOAT) (TOL-REF12899 ':FLOAT)
                              (NSWEEP-REF12900 ':INT32)
                              (LWORK-REF12902 ':INT32) (INFO-REF12903 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12888 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12889 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12891 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF12894 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12896 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF12897 :FLOAT) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF12898 :FLOAT) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF12899 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF12900 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12902 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12903 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12890 A) (D-REF12892 D)
                                            (SVA-REF12893 SVA) (V-REF12895 V)
                                            (WORK-REF12901 WORK))
      (%%SGSVJ0 JOBV M-REF12888 N-REF12889 A-REF12890 LDA-REF12891 D-REF12892
       SVA-REF12893 MV-REF12894 V-REF12895 LDV-REF12896 EPS-REF12897
       SFMIN-REF12898 TOL-REF12899 NSWEEP-REF12900 WORK-REF12901 LWORK-REF12902
       INFO-REF12903))))

(CFFI:DEFCFUN ("sgsvj1_" %%SGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGSVJ1
                   (JOBV M N N1 A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGSVJ1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12905 ':INT32) (N-REF12906 ':INT32)
                              (N1-REF12907 ':INT32) (LDA-REF12909 ':INT32)
                              (MV-REF12912 ':INT32) (LDV-REF12914 ':INT32)
                              (EPS-REF12915 ':FLOAT) (SFMIN-REF12916 ':FLOAT)
                              (TOL-REF12917 ':FLOAT) (NSWEEP-REF12918 ':INT32)
                              (LWORK-REF12920 ':INT32) (INFO-REF12921 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12905 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12906 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF12907 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12909 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF12912 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12914 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF12915 :FLOAT) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF12916 :FLOAT) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF12917 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF12918 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12920 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12921 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12908 A) (D-REF12910 D)
                                            (SVA-REF12911 SVA) (V-REF12913 V)
                                            (WORK-REF12919 WORK))
      (%%SGSVJ1 JOBV M-REF12905 N-REF12906 N1-REF12907 A-REF12908 LDA-REF12909
       D-REF12910 SVA-REF12911 MV-REF12912 V-REF12913 LDV-REF12914 EPS-REF12915
       SFMIN-REF12916 TOL-REF12917 NSWEEP-REF12918 WORK-REF12919 LWORK-REF12920
       INFO-REF12921))))

(CFFI:DEFCFUN ("sgtcon_" %%SGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGTCON
                   (NORM N DL D DU DU2 IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12923 ':INT32) (ANORM-REF12929 ':FLOAT)
                              (RCOND-REF12930 ':FLOAT) (INFO-REF12933 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12923 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF12929 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12930 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12933 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12924 DL) (D-REF12925 D)
                                            (DU-REF12926 DU) (DU2-REF12927 DU2)
                                            (IPIV-REF12928 IPIV)
                                            (WORK-REF12931 WORK)
                                            (IWORK-REF12932 IWORK))
      (%%SGTCON NORM N-REF12923 DL-REF12924 D-REF12925 DU-REF12926 DU2-REF12927
       IPIV-REF12928 ANORM-REF12929 RCOND-REF12930 WORK-REF12931 IWORK-REF12932
       INFO-REF12933))))

(CFFI:DEFCFUN ("sgtrfs_" %%SGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGTRFS
                   (TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX FERR
                    BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12935 ':INT32) (NRHS-REF12936 ':INT32)
                              (LDB-REF12946 ':INT32) (LDX-REF12948 ':INT32)
                              (INFO-REF12953 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12935 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12936 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12946 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12948 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12953 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12937 DL) (D-REF12938 D)
                                            (DU-REF12939 DU) (DLF-REF12940 DLF)
                                            (DF-REF12941 DF) (DUF-REF12942 DUF)
                                            (DU2-REF12943 DU2)
                                            (IPIV-REF12944 IPIV) (B-REF12945 B)
                                            (X-REF12947 X) (FERR-REF12949 FERR)
                                            (BERR-REF12950 BERR)
                                            (WORK-REF12951 WORK)
                                            (IWORK-REF12952 IWORK))
      (%%SGTRFS TRANS N-REF12935 NRHS-REF12936 DL-REF12937 D-REF12938
       DU-REF12939 DLF-REF12940 DF-REF12941 DUF-REF12942 DU2-REF12943
       IPIV-REF12944 B-REF12945 LDB-REF12946 X-REF12947 LDX-REF12948
       FERR-REF12949 BERR-REF12950 WORK-REF12951 IWORK-REF12952
       INFO-REF12953))))

(CFFI:DEFCFUN ("sgtsv_" %%SGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGTSV (N NRHS DL D DU B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12954 ':INT32) (NRHS-REF12955 ':INT32)
                              (LDB-REF12960 ':INT32) (INFO-REF12961 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12954 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12955 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12960 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12961 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12956 DL) (D-REF12957 D)
                                            (DU-REF12958 DU) (B-REF12959 B))
      (%%SGTSV N-REF12954 NRHS-REF12955 DL-REF12956 D-REF12957 DU-REF12958
       B-REF12959 LDB-REF12960 INFO-REF12961))))

(CFFI:DEFCFUN ("sgtsvx_" %%SGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGTSVX
                   (FACT TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX
                    RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12964 ':INT32) (NRHS-REF12965 ':INT32)
                              (LDB-REF12975 ':INT32) (LDX-REF12977 ':INT32)
                              (RCOND-REF12978 ':FLOAT) (INFO-REF12983 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12964 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12965 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12975 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12977 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12978 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12983 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12966 DL) (D-REF12967 D)
                                            (DU-REF12968 DU) (DLF-REF12969 DLF)
                                            (DF-REF12970 DF) (DUF-REF12971 DUF)
                                            (DU2-REF12972 DU2)
                                            (IPIV-REF12973 IPIV) (B-REF12974 B)
                                            (X-REF12976 X) (FERR-REF12979 FERR)
                                            (BERR-REF12980 BERR)
                                            (WORK-REF12981 WORK)
                                            (IWORK-REF12982 IWORK))
      (%%SGTSVX FACT TRANS N-REF12964 NRHS-REF12965 DL-REF12966 D-REF12967
       DU-REF12968 DLF-REF12969 DF-REF12970 DUF-REF12971 DU2-REF12972
       IPIV-REF12973 B-REF12974 LDB-REF12975 X-REF12976 LDX-REF12977
       RCOND-REF12978 FERR-REF12979 BERR-REF12980 WORK-REF12981 IWORK-REF12982
       INFO-REF12983))))

(CFFI:DEFCFUN ("sgttrf_" %%SGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGTTRF (N DL D DU DU2 IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12984 ':INT32) (INFO-REF12990 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12984 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12990 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12985 DL) (D-REF12986 D)
                                            (DU-REF12987 DU) (DU2-REF12988 DU2)
                                            (IPIV-REF12989 IPIV))
      (%%SGTTRF N-REF12984 DL-REF12985 D-REF12986 DU-REF12987 DU2-REF12988
       IPIV-REF12989 INFO-REF12990))))

(CFFI:DEFCFUN ("sgttrs_" %%SGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGTTRS (TRANS N NRHS DL D DU DU2 IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12992 ':INT32) (NRHS-REF12993 ':INT32)
                              (LDB-REF13000 ':INT32) (INFO-REF13001 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12992 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12993 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13000 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13001 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12994 DL) (D-REF12995 D)
                                            (DU-REF12996 DU) (DU2-REF12997 DU2)
                                            (IPIV-REF12998 IPIV) (B-REF12999 B))
      (%%SGTTRS TRANS N-REF12992 NRHS-REF12993 DL-REF12994 D-REF12995
       DU-REF12996 DU2-REF12997 IPIV-REF12998 B-REF12999 LDB-REF13000
       INFO-REF13001))))

(CFFI:DEFCFUN ("sgtts2_" %%SGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITRANS :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %SGTTS2 (ITRANS N NRHS DL D DU DU2 IPIV B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF13002 ':INT32) (N-REF13003 ':INT32)
                              (NRHS-REF13004 ':INT32) (LDB-REF13011 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF13002 :INT32) ITRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13003 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13004 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13011 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13005 DL) (D-REF13006 D)
                                            (DU-REF13007 DU) (DU2-REF13008 DU2)
                                            (IPIV-REF13009 IPIV) (B-REF13010 B))
      (%%SGTTS2 ITRANS-REF13002 N-REF13003 NRHS-REF13004 DL-REF13005 D-REF13006
       DU-REF13007 DU2-REF13008 IPIV-REF13009 B-REF13010 LDB-REF13011))))

(CFFI:DEFCFUN ("shgeqz_" %%SHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SHGEQZ
                   (JOB COMPQ COMPZ N ILO IHI H LDH T LDT ALPHAR ALPHAI BETA Q
                    LDQ Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SHGEQZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13015 ':INT32) (ILO-REF13016 ':INT32)
                              (IHI-REF13017 ':INT32) (LDH-REF13019 ':INT32)
                              (LDT-REF13021 ':INT32) (LDQ-REF13026 ':INT32)
                              (LDZ-REF13028 ':INT32) (LWORK-REF13030 ':INT32)
                              (INFO-REF13031 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13015 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13016 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13017 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13019 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13021 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13026 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13028 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13030 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13031 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13018 H) (T-REF13020 T)
                                            (ALPHAR-REF13022 ALPHAR)
                                            (ALPHAI-REF13023 ALPHAI)
                                            (BETA-REF13024 BETA) (Q-REF13025 Q)
                                            (Z-REF13027 Z) (WORK-REF13029 WORK))
      (%%SHGEQZ JOB COMPQ COMPZ N-REF13015 ILO-REF13016 IHI-REF13017 H-REF13018
       LDH-REF13019 T-REF13020 LDT-REF13021 ALPHAR-REF13022 ALPHAI-REF13023
       BETA-REF13024 Q-REF13025 LDQ-REF13026 Z-REF13027 LDZ-REF13028
       WORK-REF13029 LWORK-REF13030 INFO-REF13031))))

(CFFI:DEFCFUN ("shsein_" %%SHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (EIGSRC :STRING)
  (INITV :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (IFAILL :POINTER)
  (IFAILR :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SHSEIN
                   (SIDE EIGSRC INITV SELECT N H LDH WR WI VL LDVL VR LDVR MM M
                    WORK IFAILL IFAILR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SHSEIN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EIGSRC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING INITV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13036 ':INT32) (LDH-REF13038 ':INT32)
                              (LDVL-REF13042 ':INT32) (LDVR-REF13044 ':INT32)
                              (MM-REF13045 ':INT32) (M-REF13046 ':INT32)
                              (INFO-REF13050 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13036 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13038 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF13042 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF13044 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF13045 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13046 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13050 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF13035 SELECT)
                                            (H-REF13037 H) (WR-REF13039 WR)
                                            (WI-REF13040 WI) (VL-REF13041 VL)
                                            (VR-REF13043 VR)
                                            (WORK-REF13047 WORK)
                                            (IFAILL-REF13048 IFAILL)
                                            (IFAILR-REF13049 IFAILR))
      (%%SHSEIN SIDE EIGSRC INITV SELECT-REF13035 N-REF13036 H-REF13037
       LDH-REF13038 WR-REF13039 WI-REF13040 VL-REF13041 LDVL-REF13042
       VR-REF13043 LDVR-REF13044 MM-REF13045 M-REF13046 WORK-REF13047
       IFAILL-REF13048 IFAILR-REF13049 INFO-REF13050))))

(CFFI:DEFCFUN ("shseqr_" %%SHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SHSEQR
                   (JOB COMPZ N ILO IHI H LDH WR WI Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SHSEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13053 ':INT32) (ILO-REF13054 ':INT32)
                              (IHI-REF13055 ':INT32) (LDH-REF13057 ':INT32)
                              (LDZ-REF13061 ':INT32) (LWORK-REF13063 ':INT32)
                              (INFO-REF13064 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13053 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13054 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13055 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13057 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13061 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13063 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13064 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13056 H) (WR-REF13058 WR)
                                            (WI-REF13059 WI) (Z-REF13060 Z)
                                            (WORK-REF13062 WORK))
      (%%SHSEQR JOB COMPZ N-REF13053 ILO-REF13054 IHI-REF13055 H-REF13056
       LDH-REF13057 WR-REF13058 WI-REF13059 Z-REF13060 LDZ-REF13061
       WORK-REF13062 LWORK-REF13063 INFO-REF13064))))

(CFFI:DEFCFUN ("sisnan_" %%SISNAN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (SIN :POINTER))

(COMMON-LISP:DEFUN %SISNAN (SIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SISNAN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((SIN-REF13065 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF SIN-REF13065 :FLOAT) SIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SISNAN SIN-REF13065))))

(CFFI:DEFCFUN ("sla_gbamv_" %%SLA_GBAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SLA_GBAMV
                   (TRANS M N KL KU ALPHA AB LDAB X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GBAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF13066 ':INT32) (M-REF13067 ':INT32)
                              (N-REF13068 ':INT32) (KL-REF13069 ':INT32)
                              (KU-REF13070 ':INT32) (ALPHA-REF13071 ':FLOAT)
                              (LDAB-REF13073 ':INT32) (INCX-REF13075 ':INT32)
                              (BETA-REF13076 ':FLOAT) (INCY-REF13078 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF13066 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13067 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13068 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13069 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13070 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13071 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13073 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13075 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13076 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13078 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13072 AB) (X-REF13074 X)
                                            (Y-REF13077 Y))
      (%%SLA_GBAMV TRANS-REF13066 M-REF13067 N-REF13068 KL-REF13069 KU-REF13070
       ALPHA-REF13071 AB-REF13072 LDAB-REF13073 X-REF13074 INCX-REF13075
       BETA-REF13076 Y-REF13077 INCY-REF13078))))

(CFFI:DEFCFUN ("sla_gbrcond_" %%SLA_GBRCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %SLA_GBRCOND
                   (TRANS N KL KU AB LDAB AFB LDAFB IPIV CMODE C INFO WORK
                    IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GBRCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13080 ':INT32) (KL-REF13081 ':INT32)
                              (KU-REF13082 ':INT32) (LDAB-REF13084 ':INT32)
                              (LDAFB-REF13086 ':INT32) (CMODE-REF13088 ':INT32)
                              (INFO-REF13090 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13080 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13081 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13082 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13084 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF13086 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13088 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13090 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13083 AB) (AFB-REF13085 AFB)
                                            (IPIV-REF13087 IPIV) (C-REF13089 C)
                                            (WORK-REF13091 WORK)
                                            (IWORK-REF13092 IWORK))
      (%%SLA_GBRCOND TRANS N-REF13080 KL-REF13081 KU-REF13082 AB-REF13083
       LDAB-REF13084 AFB-REF13085 LDAFB-REF13086 IPIV-REF13087 CMODE-REF13088
       C-REF13089 INFO-REF13090 WORK-REF13091 IWORK-REF13092))))

(CFFI:DEFCFUN ("sla_gbrfsx_extended_" %%SLA_GBRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLA_GBRFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N KL KU NRHS AB LDAB AFB LDAFB IPIV
                    COLEQU C B LDB Y LDY BERR_OUT N_NORMS ERR_BNDS_NORM
                    ERR_BNDS_COMP RES AYB DY Y_TAIL RCOND ITHRESH RTHRESH DZ_UB
                    IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GBRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13093 ':INT32)
                              (TRANS_TYPE-REF13094 ':INT32)
                              (N-REF13095 ':INT32) (KL-REF13096 ':INT32)
                              (KU-REF13097 ':INT32) (NRHS-REF13098 ':INT32)
                              (LDAB-REF13100 ':INT32) (LDAFB-REF13102 ':INT32)
                              (COLEQU-REF13104 ':INT32) (LDB-REF13107 ':INT32)
                              (LDY-REF13109 ':INT32) (N_NORMS-REF13111 ':INT32)
                              (RCOND-REF13118 ':FLOAT)
                              (ITHRESH-REF13119 ':INT32)
                              (RTHRESH-REF13120 ':FLOAT)
                              (DZ_UB-REF13121 ':FLOAT)
                              (IGNORE_CWISE-REF13122 ':INT32)
                              (INFO-REF13123 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13093 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF13094 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13095 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13096 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13097 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13098 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13100 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF13102 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13104 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13107 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13109 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13111 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13118 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13119 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13120 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13121 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13122 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13123 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13099 AB) (AFB-REF13101 AFB)
                                            (IPIV-REF13103 IPIV) (C-REF13105 C)
                                            (B-REF13106 B) (Y-REF13108 Y)
                                            (BERR_OUT-REF13110 BERR_OUT)
                                            (ERR_BNDS_NORM-REF13112
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF13113
                                             ERR_BNDS_COMP)
                                            (RES-REF13114 RES)
                                            (AYB-REF13115 AYB) (DY-REF13116 DY)
                                            (Y_TAIL-REF13117 Y_TAIL))
      (%%SLA_GBRFSX_EXTENDED PREC_TYPE-REF13093 TRANS_TYPE-REF13094 N-REF13095
       KL-REF13096 KU-REF13097 NRHS-REF13098 AB-REF13099 LDAB-REF13100
       AFB-REF13101 LDAFB-REF13102 IPIV-REF13103 COLEQU-REF13104 C-REF13105
       B-REF13106 LDB-REF13107 Y-REF13108 LDY-REF13109 BERR_OUT-REF13110
       N_NORMS-REF13111 ERR_BNDS_NORM-REF13112 ERR_BNDS_COMP-REF13113
       RES-REF13114 AYB-REF13115 DY-REF13116 Y_TAIL-REF13117 RCOND-REF13118
       ITHRESH-REF13119 RTHRESH-REF13120 DZ_UB-REF13121 IGNORE_CWISE-REF13122
       INFO-REF13123))))

(CFFI:DEFCFUN ("sla_gbrpvgrw_" %%SLA_GBRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NCOLS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER))

(COMMON-LISP:DEFUN %SLA_GBRPVGRW (N KL KU NCOLS AB LDAB AFB LDAFB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GBRPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13124 ':INT32) (KL-REF13125 ':INT32)
                              (KU-REF13126 ':INT32) (NCOLS-REF13127 ':INT32)
                              (LDAB-REF13129 ':INT32) (LDAFB-REF13131 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13124 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13125 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13126 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF13127 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13129 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF13131 :INT32) LDAFB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13128 AB) (AFB-REF13130 AFB))
      (%%SLA_GBRPVGRW N-REF13124 KL-REF13125 KU-REF13126 NCOLS-REF13127
       AB-REF13128 LDAB-REF13129 AFB-REF13130 LDAFB-REF13131))))

(CFFI:DEFCFUN ("sla_geamv_" %%SLA_GEAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SLA_GEAMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GEAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF13132 ':INT32) (M-REF13133 ':INT32)
                              (N-REF13134 ':INT32) (ALPHA-REF13135 ':FLOAT)
                              (LDA-REF13137 ':INT32) (INCX-REF13139 ':INT32)
                              (BETA-REF13140 ':FLOAT) (INCY-REF13142 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF13132 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13133 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13134 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13135 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13137 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13139 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13140 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13142 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13136 A) (X-REF13138 X)
                                            (Y-REF13141 Y))
      (%%SLA_GEAMV TRANS-REF13132 M-REF13133 N-REF13134 ALPHA-REF13135
       A-REF13136 LDA-REF13137 X-REF13138 INCX-REF13139 BETA-REF13140
       Y-REF13141 INCY-REF13142))))

(CFFI:DEFCFUN ("sla_gercond_" %%SLA_GERCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (TRANS :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %SLA_GERCOND
                   (TRANS N A LDA AF LDAF IPIV CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GERCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13144 ':INT32) (LDA-REF13146 ':INT32)
                              (LDAF-REF13148 ':INT32) (CMODE-REF13150 ':INT32)
                              (INFO-REF13152 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13144 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13146 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13148 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13150 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13152 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13145 A) (AF-REF13147 AF)
                                            (IPIV-REF13149 IPIV) (C-REF13151 C)
                                            (WORK-REF13153 WORK)
                                            (IWORK-REF13154 IWORK))
      (%%SLA_GERCOND TRANS N-REF13144 A-REF13145 LDA-REF13146 AF-REF13147
       LDAF-REF13148 IPIV-REF13149 CMODE-REF13150 C-REF13151 INFO-REF13152
       WORK-REF13153 IWORK-REF13154))))

(CFFI:DEFCFUN ("sla_gerfsx_extended_" %%SLA_GERFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERRS_N :POINTER)
  (ERRS_C :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLA_GERFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N NRHS A LDA AF LDAF IPIV COLEQU C B
                    LDB Y LDY BERR_OUT N_NORMS ERRS_N ERRS_C RES AYB DY Y_TAIL
                    RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GERFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERRS_N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERRS_C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13155 ':INT32)
                              (TRANS_TYPE-REF13156 ':INT32)
                              (N-REF13157 ':INT32) (NRHS-REF13158 ':INT32)
                              (LDA-REF13160 ':INT32) (LDAF-REF13162 ':INT32)
                              (COLEQU-REF13164 ':INT32) (LDB-REF13167 ':INT32)
                              (LDY-REF13169 ':INT32) (N_NORMS-REF13171 ':INT32)
                              (RCOND-REF13178 ':FLOAT)
                              (ITHRESH-REF13179 ':INT32)
                              (RTHRESH-REF13180 ':FLOAT)
                              (DZ_UB-REF13181 ':FLOAT)
                              (IGNORE_CWISE-REF13182 ':INT32)
                              (INFO-REF13183 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13155 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF13156 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13157 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13158 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13160 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13162 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13164 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13167 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13169 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13171 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13178 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13179 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13180 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13181 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13182 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13183 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13159 A) (AF-REF13161 AF)
                                            (IPIV-REF13163 IPIV) (C-REF13165 C)
                                            (B-REF13166 B) (Y-REF13168 Y)
                                            (BERR_OUT-REF13170 BERR_OUT)
                                            (ERRS_N-REF13172 ERRS_N)
                                            (ERRS_C-REF13173 ERRS_C)
                                            (RES-REF13174 RES)
                                            (AYB-REF13175 AYB) (DY-REF13176 DY)
                                            (Y_TAIL-REF13177 Y_TAIL))
      (%%SLA_GERFSX_EXTENDED PREC_TYPE-REF13155 TRANS_TYPE-REF13156 N-REF13157
       NRHS-REF13158 A-REF13159 LDA-REF13160 AF-REF13161 LDAF-REF13162
       IPIV-REF13163 COLEQU-REF13164 C-REF13165 B-REF13166 LDB-REF13167
       Y-REF13168 LDY-REF13169 BERR_OUT-REF13170 N_NORMS-REF13171
       ERRS_N-REF13172 ERRS_C-REF13173 RES-REF13174 AYB-REF13175 DY-REF13176
       Y_TAIL-REF13177 RCOND-REF13178 ITHRESH-REF13179 RTHRESH-REF13180
       DZ_UB-REF13181 IGNORE_CWISE-REF13182 INFO-REF13183))))

(CFFI:DEFCFUN ("sla_gerpvgrw_" %%SLA_GERPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (N :POINTER)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER))

(COMMON-LISP:DEFUN %SLA_GERPVGRW (N NCOLS A LDA AF LDAF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GERPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13184 ':INT32) (NCOLS-REF13185 ':INT32)
                              (LDA-REF13187 ':INT32) (LDAF-REF13189 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13184 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF13185 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13187 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13189 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13186 A) (AF-REF13188 AF))
      (%%SLA_GERPVGRW N-REF13184 NCOLS-REF13185 A-REF13186 LDA-REF13187
       AF-REF13188 LDAF-REF13189))))

(CFFI:DEFCFUN ("sla_lin_berr_" %%SLA_LIN_BERR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NZ :POINTER)
  (NRHS :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (BERR :POINTER))

(COMMON-LISP:DEFUN %SLA_LIN_BERR (N NZ NRHS RES AYB BERR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_LIN_BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13190 ':INT32) (NZ-REF13191 ':INT32)
                              (NRHS-REF13192 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13190 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF13191 :INT32) NZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13192 :INT32) NRHS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF13193 RES)
                                            (AYB-REF13194 AYB)
                                            (BERR-REF13195 BERR))
      (%%SLA_LIN_BERR N-REF13190 NZ-REF13191 NRHS-REF13192 RES-REF13193
       AYB-REF13194 BERR-REF13195))))

(CFFI:DEFCFUN ("sla_porcond_" %%SLA_PORCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %SLA_PORCOND (UPLO N A LDA AF LDAF CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_PORCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13197 ':INT32) (LDA-REF13199 ':INT32)
                              (LDAF-REF13201 ':INT32) (CMODE-REF13202 ':INT32)
                              (INFO-REF13204 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13197 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13199 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13201 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13202 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13204 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13198 A) (AF-REF13200 AF)
                                            (C-REF13203 C) (WORK-REF13205 WORK)
                                            (IWORK-REF13206 IWORK))
      (%%SLA_PORCOND UPLO N-REF13197 A-REF13198 LDA-REF13199 AF-REF13200
       LDAF-REF13201 CMODE-REF13202 C-REF13203 INFO-REF13204 WORK-REF13205
       IWORK-REF13206))))

(CFFI:DEFCFUN ("sla_porfsx_extended_" %%SLA_PORFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLA_PORFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF COLEQU C B LDB Y LDY
                    BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_PORFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13207 ':INT32) (N-REF13209 ':INT32)
                              (NRHS-REF13210 ':INT32) (LDA-REF13212 ':INT32)
                              (LDAF-REF13214 ':INT32) (COLEQU-REF13215 ':INT32)
                              (LDB-REF13218 ':INT32) (LDY-REF13220 ':INT32)
                              (N_NORMS-REF13222 ':INT32)
                              (RCOND-REF13229 ':FLOAT)
                              (ITHRESH-REF13230 ':INT32)
                              (RTHRESH-REF13231 ':FLOAT)
                              (DZ_UB-REF13232 ':FLOAT)
                              (IGNORE_CWISE-REF13233 ':INT32)
                              (INFO-REF13234 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13207 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13209 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13210 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13212 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13214 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13215 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13218 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13220 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13222 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13229 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13230 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13231 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13232 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13233 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13234 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13211 A) (AF-REF13213 AF)
                                            (C-REF13216 C) (B-REF13217 B)
                                            (Y-REF13219 Y)
                                            (BERR_OUT-REF13221 BERR_OUT)
                                            (ERR_BNDS_NORM-REF13223
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF13224
                                             ERR_BNDS_COMP)
                                            (RES-REF13225 RES)
                                            (AYB-REF13226 AYB) (DY-REF13227 DY)
                                            (Y_TAIL-REF13228 Y_TAIL))
      (%%SLA_PORFSX_EXTENDED PREC_TYPE-REF13207 UPLO N-REF13209 NRHS-REF13210
       A-REF13211 LDA-REF13212 AF-REF13213 LDAF-REF13214 COLEQU-REF13215
       C-REF13216 B-REF13217 LDB-REF13218 Y-REF13219 LDY-REF13220
       BERR_OUT-REF13221 N_NORMS-REF13222 ERR_BNDS_NORM-REF13223
       ERR_BNDS_COMP-REF13224 RES-REF13225 AYB-REF13226 DY-REF13227
       Y_TAIL-REF13228 RCOND-REF13229 ITHRESH-REF13230 RTHRESH-REF13231
       DZ_UB-REF13232 IGNORE_CWISE-REF13233 INFO-REF13234))))

(CFFI:DEFCFUN ("sla_porpvgrw_" %%SLA_PORPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLA_PORPVGRW (UPLO NCOLS A LDA AF LDAF WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_PORPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF13236 ':INT32) (LDA-REF13238 ':INT32)
                              (LDAF-REF13240 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF13236 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13238 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13240 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13237 A) (AF-REF13239 AF)
                                            (WORK-REF13241 WORK))
      (%%SLA_PORPVGRW UPLO NCOLS-REF13236 A-REF13237 LDA-REF13238 AF-REF13239
       LDAF-REF13240 WORK-REF13241))))

(CFFI:DEFCFUN ("sla_syamv_" %%SLA_SYAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SLA_SYAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_SYAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF13242 ':INT32) (N-REF13243 ':INT32)
                              (ALPHA-REF13244 ':FLOAT) (LDA-REF13246 ':INT32)
                              (INCX-REF13248 ':INT32) (BETA-REF13249 ':FLOAT)
                              (INCY-REF13251 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF13242 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13243 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13244 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13246 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13248 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13249 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13251 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13245 A) (X-REF13247 X)
                                            (Y-REF13250 Y))
      (%%SLA_SYAMV UPLO-REF13242 N-REF13243 ALPHA-REF13244 A-REF13245
       LDA-REF13246 X-REF13247 INCX-REF13248 BETA-REF13249 Y-REF13250
       INCY-REF13251))))

(CFFI:DEFCFUN ("sla_syrcond_" %%SLA_SYRCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %SLA_SYRCOND
                   (UPLO N A LDA AF LDAF IPIV CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_SYRCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13253 ':INT32) (LDA-REF13255 ':INT32)
                              (LDAF-REF13257 ':INT32) (CMODE-REF13259 ':INT32)
                              (INFO-REF13261 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13253 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13255 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13257 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13259 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13261 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13254 A) (AF-REF13256 AF)
                                            (IPIV-REF13258 IPIV) (C-REF13260 C)
                                            (WORK-REF13262 WORK)
                                            (IWORK-REF13263 IWORK))
      (%%SLA_SYRCOND UPLO N-REF13253 A-REF13254 LDA-REF13255 AF-REF13256
       LDAF-REF13257 IPIV-REF13258 CMODE-REF13259 C-REF13260 INFO-REF13261
       WORK-REF13262 IWORK-REF13263))))

(CFFI:DEFCFUN ("sla_syrfsx_extended_" %%SLA_SYRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLA_SYRFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
                    LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_SYRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13264 ':INT32) (N-REF13266 ':INT32)
                              (NRHS-REF13267 ':INT32) (LDA-REF13269 ':INT32)
                              (LDAF-REF13271 ':INT32) (COLEQU-REF13273 ':INT32)
                              (LDB-REF13276 ':INT32) (LDY-REF13278 ':INT32)
                              (N_NORMS-REF13280 ':INT32)
                              (RCOND-REF13287 ':FLOAT)
                              (ITHRESH-REF13288 ':INT32)
                              (RTHRESH-REF13289 ':FLOAT)
                              (DZ_UB-REF13290 ':FLOAT)
                              (IGNORE_CWISE-REF13291 ':INT32)
                              (INFO-REF13292 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13264 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13266 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13267 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13269 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13271 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13273 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13276 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13278 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13280 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13287 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13288 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13289 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13290 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13291 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13292 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13268 A) (AF-REF13270 AF)
                                            (IPIV-REF13272 IPIV) (C-REF13274 C)
                                            (B-REF13275 B) (Y-REF13277 Y)
                                            (BERR_OUT-REF13279 BERR_OUT)
                                            (ERR_BNDS_NORM-REF13281
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF13282
                                             ERR_BNDS_COMP)
                                            (RES-REF13283 RES)
                                            (AYB-REF13284 AYB) (DY-REF13285 DY)
                                            (Y_TAIL-REF13286 Y_TAIL))
      (%%SLA_SYRFSX_EXTENDED PREC_TYPE-REF13264 UPLO N-REF13266 NRHS-REF13267
       A-REF13268 LDA-REF13269 AF-REF13270 LDAF-REF13271 IPIV-REF13272
       COLEQU-REF13273 C-REF13274 B-REF13275 LDB-REF13276 Y-REF13277
       LDY-REF13278 BERR_OUT-REF13279 N_NORMS-REF13280 ERR_BNDS_NORM-REF13281
       ERR_BNDS_COMP-REF13282 RES-REF13283 AYB-REF13284 DY-REF13285
       Y_TAIL-REF13286 RCOND-REF13287 ITHRESH-REF13288 RTHRESH-REF13289
       DZ_UB-REF13290 IGNORE_CWISE-REF13291 INFO-REF13292))))

(CFFI:DEFCFUN ("sla_syrpvgrw_" %%SLA_SYRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (INFO :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLA_SYRPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_SYRPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13294 ':INT32) (INFO-REF13295 ':INT32)
                              (LDA-REF13297 ':INT32) (LDAF-REF13299 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13294 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13295 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13297 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13299 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13296 A) (AF-REF13298 AF)
                                            (IPIV-REF13300 IPIV)
                                            (WORK-REF13301 WORK))
      (%%SLA_SYRPVGRW UPLO N-REF13294 INFO-REF13295 A-REF13296 LDA-REF13297
       AF-REF13298 LDAF-REF13299 IPIV-REF13300 WORK-REF13301))))

(CFFI:DEFCFUN ("sla_wwaddw_" %%SLA_WWADDW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (W :POINTER))

(COMMON-LISP:DEFUN %SLA_WWADDW (N X Y W)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_WWADDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13302 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13302 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13303 X) (Y-REF13304 Y)
                                            (W-REF13305 W))
      (%%SLA_WWADDW N-REF13302 X-REF13303 Y-REF13304 W-REF13305))))

(CFFI:DEFCFUN ("slabad_" %%SLABAD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SMALL :POINTER)
  (LARGE :POINTER))

(COMMON-LISP:DEFUN %SLABAD (SMALL LARGE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLABAD)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SMALL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT LARGE))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMALL-REF13306 ':FLOAT) (LARGE-REF13307 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMALL-REF13306 :FLOAT) SMALL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LARGE-REF13307 :FLOAT) LARGE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLABAD SMALL-REF13306 LARGE-REF13307))))

(CFFI:DEFCFUN ("slabrd_" %%SLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %SLABRD (M N NB A LDA D E TAUQ TAUP X LDX Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLABRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13308 ':INT32) (N-REF13309 ':INT32)
                              (NB-REF13310 ':INT32) (LDA-REF13312 ':INT32)
                              (LDX-REF13318 ':INT32) (LDY-REF13320 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13308 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13309 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13310 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13312 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13318 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13320 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13311 A) (D-REF13313 D)
                                            (E-REF13314 E) (TAUQ-REF13315 TAUQ)
                                            (TAUP-REF13316 TAUP) (X-REF13317 X)
                                            (Y-REF13319 Y))
      (%%SLABRD M-REF13308 N-REF13309 NB-REF13310 A-REF13311 LDA-REF13312
       D-REF13313 E-REF13314 TAUQ-REF13315 TAUP-REF13316 X-REF13317
       LDX-REF13318 Y-REF13319 LDY-REF13320))))

(CFFI:DEFCFUN ("slacn2_" %%SLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (ISGN :POINTER)
  (EST :POINTER)
  (KASE :POINTER)
  (ISAVE :POINTER))

(COMMON-LISP:DEFUN %SLACN2 (N V X ISGN EST KASE ISAVE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLACN2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISGN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISAVE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13321 ':INT32) (EST-REF13325 ':FLOAT)
                              (KASE-REF13326 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13321 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF13325 :FLOAT) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF13326 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF13322 V) (X-REF13323 X)
                                            (ISGN-REF13324 ISGN)
                                            (ISAVE-REF13327 ISAVE))
      (%%SLACN2 N-REF13321 V-REF13322 X-REF13323 ISGN-REF13324 EST-REF13325
       KASE-REF13326 ISAVE-REF13327))))

(CFFI:DEFCFUN ("slacon_" %%SLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (ISGN :POINTER)
  (EST :POINTER)
  (KASE :POINTER))

(COMMON-LISP:DEFUN %SLACON (N V X ISGN EST KASE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLACON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISGN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13328 ':INT32) (EST-REF13332 ':FLOAT)
                              (KASE-REF13333 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13328 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF13332 :FLOAT) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF13333 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF13329 V) (X-REF13330 X)
                                            (ISGN-REF13331 ISGN))
      (%%SLACON N-REF13328 V-REF13329 X-REF13330 ISGN-REF13331 EST-REF13332
       KASE-REF13333))))

(CFFI:DEFCFUN ("slacpy_" %%SLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %SLACPY (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLACPY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13335 ':INT32) (N-REF13336 ':INT32)
                              (LDA-REF13338 ':INT32) (LDB-REF13340 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13335 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13336 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13338 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13340 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13337 A) (B-REF13339 B))
      (%%SLACPY UPLO M-REF13335 N-REF13336 A-REF13337 LDA-REF13338 B-REF13339
       LDB-REF13340))))

(CFFI:DEFCFUN ("sladiv_" %%SLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (D :POINTER)
  (P :POINTER)
  (Q :POINTER))

(COMMON-LISP:DEFUN %SLADIV (A B C D P Q)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLADIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT D)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT P)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Q))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13341 ':FLOAT) (B-REF13342 ':FLOAT)
                              (C-REF13343 ':FLOAT) (D-REF13344 ':FLOAT)
                              (P-REF13345 ':FLOAT) (Q-REF13346 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13341 :FLOAT) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13342 :FLOAT) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13343 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF D-REF13344 :FLOAT) D)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF13345 :FLOAT) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF13346 :FLOAT) Q)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLADIV A-REF13341 B-REF13342 C-REF13343 D-REF13344 P-REF13345
       Q-REF13346))))

(CFFI:DEFCFUN ("slae2_" %%SLAE2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER))

(COMMON-LISP:DEFUN %SLAE2 (A B C RT1 RT2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAE2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13347 ':FLOAT) (B-REF13348 ':FLOAT)
                              (C-REF13349 ':FLOAT) (RT1-REF13350 ':FLOAT)
                              (RT2-REF13351 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13347 :FLOAT) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13348 :FLOAT) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13349 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF13350 :FLOAT) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF13351 :FLOAT) RT2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAE2 A-REF13347 B-REF13348 C-REF13349 RT1-REF13350 RT2-REF13351))))

(CFFI:DEFCFUN ("slaebz_" %%SLAEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (NITMAX :POINTER)
  (N :POINTER)
  (MMAX :POINTER)
  (MINP :POINTER)
  (NBMIN :POINTER)
  (ABSTOL :POINTER)
  (RELTOL :POINTER)
  (PIVMIN :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (NVAL :POINTER)
  (AB :POINTER)
  (C :POINTER)
  (MOUT :POINTER)
  (NAB :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAEBZ
                   (IJOB NITMAX N MMAX MINP NBMIN ABSTOL RELTOL PIVMIN D E E2
                    NVAL AB C MOUT NAB WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAEBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NITMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MINP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NBMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RELTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NVAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MOUT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF13352 ':INT32) (NITMAX-REF13353 ':INT32)
                              (N-REF13354 ':INT32) (MMAX-REF13355 ':INT32)
                              (MINP-REF13356 ':INT32) (NBMIN-REF13357 ':INT32)
                              (ABSTOL-REF13358 ':FLOAT)
                              (RELTOL-REF13359 ':FLOAT)
                              (PIVMIN-REF13360 ':FLOAT) (MOUT-REF13367 ':INT32)
                              (INFO-REF13371 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF13352 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NITMAX-REF13353 :INT32) NITMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13354 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MMAX-REF13355 :INT32) MMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINP-REF13356 :INT32) MINP)
    (COMMON-LISP:SETF (CFFI:MEM-REF NBMIN-REF13357 :INT32) NBMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF13358 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF13359 :FLOAT) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF13360 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF MOUT-REF13367 :INT32) MOUT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13371 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13361 D) (E-REF13362 E)
                                            (E2-REF13363 E2)
                                            (NVAL-REF13364 NVAL)
                                            (AB-REF13365 AB) (C-REF13366 C)
                                            (NAB-REF13368 NAB)
                                            (WORK-REF13369 WORK)
                                            (IWORK-REF13370 IWORK))
      (%%SLAEBZ IJOB-REF13352 NITMAX-REF13353 N-REF13354 MMAX-REF13355
       MINP-REF13356 NBMIN-REF13357 ABSTOL-REF13358 RELTOL-REF13359
       PIVMIN-REF13360 D-REF13361 E-REF13362 E2-REF13363 NVAL-REF13364
       AB-REF13365 C-REF13366 MOUT-REF13367 NAB-REF13368 WORK-REF13369
       IWORK-REF13370 INFO-REF13371))))

(CFFI:DEFCFUN ("slaed0_" %%SLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (QSIZ :POINTER)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (QSTORE :POINTER)
  (LDQS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED0
                   (ICOMPQ QSIZ N D E Q LDQ QSTORE LDQS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        QSTORE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13372 ':INT32) (QSIZ-REF13373 ':INT32)
                              (N-REF13374 ':INT32) (LDQ-REF13378 ':INT32)
                              (LDQS-REF13380 ':INT32) (INFO-REF13383 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13372 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF13373 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13374 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13378 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF13380 :INT32) LDQS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13383 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13375 D) (E-REF13376 E)
                                            (Q-REF13377 Q)
                                            (QSTORE-REF13379 QSTORE)
                                            (WORK-REF13381 WORK)
                                            (IWORK-REF13382 IWORK))
      (%%SLAED0 ICOMPQ-REF13372 QSIZ-REF13373 N-REF13374 D-REF13375 E-REF13376
       Q-REF13377 LDQ-REF13378 QSTORE-REF13379 LDQS-REF13380 WORK-REF13381
       IWORK-REF13382 INFO-REF13383))))

(CFFI:DEFCFUN ("slaed1_" %%SLAED1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED1 (N D Q LDQ INDXQ RHO CUTPNT WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13384 ':INT32) (LDQ-REF13387 ':INT32)
                              (RHO-REF13389 ':FLOAT) (CUTPNT-REF13390 ':INT32)
                              (INFO-REF13393 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13384 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13387 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13389 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF13390 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13393 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13385 D) (Q-REF13386 Q)
                                            (INDXQ-REF13388 INDXQ)
                                            (WORK-REF13391 WORK)
                                            (IWORK-REF13392 IWORK))
      (%%SLAED1 N-REF13384 D-REF13385 Q-REF13386 LDQ-REF13387 INDXQ-REF13388
       RHO-REF13389 CUTPNT-REF13390 WORK-REF13391 IWORK-REF13392
       INFO-REF13393))))

(CFFI:DEFCFUN ("slaed2_" %%SLAED2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (K :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (Z :POINTER)
  (DLAMDA :POINTER)
  (W :POINTER)
  (Q2 :POINTER)
  (INDX :POINTER)
  (INDXC :POINTER)
  (INDXP :POINTER)
  (COLTYP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED2
                   (K N N1 D Q LDQ INDXQ RHO Z DLAMDA W Q2 INDX INDXC INDXP
                    COLTYP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        COLTYP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF13394 ':INT32) (N-REF13395 ':INT32)
                              (N1-REF13396 ':INT32) (LDQ-REF13399 ':INT32)
                              (RHO-REF13401 ':FLOAT) (INFO-REF13410 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13394 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13395 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13396 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13399 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13401 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13410 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13397 D) (Q-REF13398 Q)
                                            (INDXQ-REF13400 INDXQ)
                                            (Z-REF13402 Z)
                                            (DLAMDA-REF13403 DLAMDA)
                                            (W-REF13404 W) (Q2-REF13405 Q2)
                                            (INDX-REF13406 INDX)
                                            (INDXC-REF13407 INDXC)
                                            (INDXP-REF13408 INDXP)
                                            (COLTYP-REF13409 COLTYP))
      (%%SLAED2 K-REF13394 N-REF13395 N1-REF13396 D-REF13397 Q-REF13398
       LDQ-REF13399 INDXQ-REF13400 RHO-REF13401 Z-REF13402 DLAMDA-REF13403
       W-REF13404 Q2-REF13405 INDX-REF13406 INDXC-REF13407 INDXP-REF13408
       COLTYP-REF13409 INFO-REF13410))))

(CFFI:DEFCFUN ("slaed3_" %%SLAED3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (K :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (RHO :POINTER)
  (DLAMDA :POINTER)
  (Q2 :POINTER)
  (INDX :POINTER)
  (CTOT :POINTER)
  (W :POINTER)
  (S :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED3 (K N N1 D Q LDQ RHO DLAMDA Q2 INDX CTOT W S INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        CTOT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF13411 ':INT32) (N-REF13412 ':INT32)
                              (N1-REF13413 ':INT32) (LDQ-REF13416 ':INT32)
                              (RHO-REF13417 ':FLOAT) (INFO-REF13424 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13411 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13412 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13413 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13416 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13417 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13424 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13414 D) (Q-REF13415 Q)
                                            (DLAMDA-REF13418 DLAMDA)
                                            (Q2-REF13419 Q2)
                                            (INDX-REF13420 INDX)
                                            (CTOT-REF13421 CTOT) (W-REF13422 W)
                                            (S-REF13423 S))
      (%%SLAED3 K-REF13411 N-REF13412 N1-REF13413 D-REF13414 Q-REF13415
       LDQ-REF13416 RHO-REF13417 DLAMDA-REF13418 Q2-REF13419 INDX-REF13420
       CTOT-REF13421 W-REF13422 S-REF13423 INFO-REF13424))))

(CFFI:DEFCFUN ("slaed4_" %%SLAED4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (DLAM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED4 (N I D Z DELTA RHO DLAM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DLAM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13425 ':INT32) (I-REF13426 ':INT32)
                              (RHO-REF13430 ':FLOAT) (DLAM-REF13431 ':FLOAT)
                              (INFO-REF13432 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13425 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF13426 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13430 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF13431 :FLOAT) DLAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13432 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13427 D) (Z-REF13428 Z)
                                            (DELTA-REF13429 DELTA))
      (%%SLAED4 N-REF13425 I-REF13426 D-REF13427 Z-REF13428 DELTA-REF13429
       RHO-REF13430 DLAM-REF13431 INFO-REF13432))))

(CFFI:DEFCFUN ("slaed5_" %%SLAED5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (DLAM :POINTER))

(COMMON-LISP:DEFUN %SLAED5 (I D Z DELTA RHO DLAM)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DLAM))
  (CFFI:WITH-FOREIGN-OBJECTS ((I-REF13433 ':INT32) (RHO-REF13437 ':FLOAT)
                              (DLAM-REF13438 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF13433 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13437 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF13438 :FLOAT) DLAM)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13434 D) (Z-REF13435 Z)
                                            (DELTA-REF13436 DELTA))
      (%%SLAED5 I-REF13433 D-REF13434 Z-REF13435 DELTA-REF13436 RHO-REF13437
       DLAM-REF13438))))

(CFFI:DEFCFUN ("slaed6_" %%SLAED6 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (KNITER :POINTER)
  (ORGATI :POINTER)
  (RHO :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (FINIT :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED6 (KNITER ORGATI RHO D Z FINIT TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KNITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ORGATI)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT FINIT)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KNITER-REF13439 ':INT32)
                              (ORGATI-REF13440 ':INT32) (RHO-REF13441 ':FLOAT)
                              (FINIT-REF13444 ':FLOAT) (TAU-REF13445 ':FLOAT)
                              (INFO-REF13446 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KNITER-REF13439 :INT32) KNITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF ORGATI-REF13440 :INT32) ORGATI)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13441 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF FINIT-REF13444 :FLOAT) FINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF13445 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13446 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13442 D) (Z-REF13443 Z))
      (%%SLAED6 KNITER-REF13439 ORGATI-REF13440 RHO-REF13441 D-REF13442
       Z-REF13443 FINIT-REF13444 TAU-REF13445 INFO-REF13446))))

(CFFI:DEFCFUN ("slaed7_" %%SLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (N :POINTER)
  (QSIZ :POINTER)
  (TLVLS :POINTER)
  (CURLVL :POINTER)
  (CURPBM :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (QSTORE :POINTER)
  (QPTR :POINTER)
  (PRMPTR :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED7
                   (ICOMPQ N QSIZ TLVLS CURLVL CURPBM D Q LDQ INDXQ RHO CUTPNT
                    QSTORE QPTR PRMPTR PERM GIVPTR GIVCOL GIVNUM WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED7)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        QSTORE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        QPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PRMPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13447 ':INT32) (N-REF13448 ':INT32)
                              (QSIZ-REF13449 ':INT32) (TLVLS-REF13450 ':INT32)
                              (CURLVL-REF13451 ':INT32)
                              (CURPBM-REF13452 ':INT32) (LDQ-REF13455 ':INT32)
                              (RHO-REF13457 ':FLOAT) (CUTPNT-REF13458 ':INT32)
                              (INFO-REF13468 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13447 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13448 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF13449 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF13450 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF13451 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF13452 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13455 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13457 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF13458 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13468 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13453 D) (Q-REF13454 Q)
                                            (INDXQ-REF13456 INDXQ)
                                            (QSTORE-REF13459 QSTORE)
                                            (QPTR-REF13460 QPTR)
                                            (PRMPTR-REF13461 PRMPTR)
                                            (PERM-REF13462 PERM)
                                            (GIVPTR-REF13463 GIVPTR)
                                            (GIVCOL-REF13464 GIVCOL)
                                            (GIVNUM-REF13465 GIVNUM)
                                            (WORK-REF13466 WORK)
                                            (IWORK-REF13467 IWORK))
      (%%SLAED7 ICOMPQ-REF13447 N-REF13448 QSIZ-REF13449 TLVLS-REF13450
       CURLVL-REF13451 CURPBM-REF13452 D-REF13453 Q-REF13454 LDQ-REF13455
       INDXQ-REF13456 RHO-REF13457 CUTPNT-REF13458 QSTORE-REF13459
       QPTR-REF13460 PRMPTR-REF13461 PERM-REF13462 GIVPTR-REF13463
       GIVCOL-REF13464 GIVNUM-REF13465 WORK-REF13466 IWORK-REF13467
       INFO-REF13468))))

(CFFI:DEFCFUN ("slaed8_" %%SLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (K :POINTER)
  (N :POINTER)
  (QSIZ :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (Z :POINTER)
  (DLAMDA :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (W :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (INDXP :POINTER)
  (INDX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED8
                   (ICOMPQ K N QSIZ D Q LDQ INDXQ RHO CUTPNT Z DLAMDA Q2 LDQ2 W
                    PERM GIVPTR GIVCOL GIVNUM INDXP INDX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED8)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13469 ':INT32) (K-REF13470 ':INT32)
                              (N-REF13471 ':INT32) (QSIZ-REF13472 ':INT32)
                              (LDQ-REF13475 ':INT32) (RHO-REF13477 ':FLOAT)
                              (CUTPNT-REF13478 ':INT32) (LDQ2-REF13482 ':INT32)
                              (GIVPTR-REF13485 ':INT32) (INFO-REF13490 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13469 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13470 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13471 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF13472 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13475 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13477 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF13478 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF13482 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF13485 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13490 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13473 D) (Q-REF13474 Q)
                                            (INDXQ-REF13476 INDXQ)
                                            (Z-REF13479 Z)
                                            (DLAMDA-REF13480 DLAMDA)
                                            (Q2-REF13481 Q2) (W-REF13483 W)
                                            (PERM-REF13484 PERM)
                                            (GIVCOL-REF13486 GIVCOL)
                                            (GIVNUM-REF13487 GIVNUM)
                                            (INDXP-REF13488 INDXP)
                                            (INDX-REF13489 INDX))
      (%%SLAED8 ICOMPQ-REF13469 K-REF13470 N-REF13471 QSIZ-REF13472 D-REF13473
       Q-REF13474 LDQ-REF13475 INDXQ-REF13476 RHO-REF13477 CUTPNT-REF13478
       Z-REF13479 DLAMDA-REF13480 Q2-REF13481 LDQ2-REF13482 W-REF13483
       PERM-REF13484 GIVPTR-REF13485 GIVCOL-REF13486 GIVNUM-REF13487
       INDXP-REF13488 INDX-REF13489 INFO-REF13490))))

(CFFI:DEFCFUN ("slaed9_" %%SLAED9 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (K :POINTER)
  (KSTART :POINTER)
  (KSTOP :POINTER)
  (N :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (RHO :POINTER)
  (DLAMDA :POINTER)
  (W :POINTER)
  (S :POINTER)
  (LDS :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED9 (K KSTART KSTOP N D Q LDQ RHO DLAMDA W S LDS INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED9)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KSTART)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KSTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF13491 ':INT32) (KSTART-REF13492 ':INT32)
                              (KSTOP-REF13493 ':INT32) (N-REF13494 ':INT32)
                              (LDQ-REF13497 ':INT32) (RHO-REF13498 ':FLOAT)
                              (LDS-REF13502 ':INT32) (INFO-REF13503 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13491 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF KSTART-REF13492 :INT32) KSTART)
    (COMMON-LISP:SETF (CFFI:MEM-REF KSTOP-REF13493 :INT32) KSTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13494 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13497 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13498 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF13502 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13503 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13495 D) (Q-REF13496 Q)
                                            (DLAMDA-REF13499 DLAMDA)
                                            (W-REF13500 W) (S-REF13501 S))
      (%%SLAED9 K-REF13491 KSTART-REF13492 KSTOP-REF13493 N-REF13494 D-REF13495
       Q-REF13496 LDQ-REF13497 RHO-REF13498 DLAMDA-REF13499 W-REF13500
       S-REF13501 LDS-REF13502 INFO-REF13503))))

(CFFI:DEFCFUN ("slaeda_" %%SLAEDA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (TLVLS :POINTER)
  (CURLVL :POINTER)
  (CURPBM :POINTER)
  (PRMPTR :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (Q :POINTER)
  (QPTR :POINTER)
  (Z :POINTER)
  (ZTEMP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAEDA
                   (N TLVLS CURLVL CURPBM PRMPTR PERM GIVPTR GIVCOL GIVNUM Q
                    QPTR Z ZTEMP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAEDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PRMPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        QPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ZTEMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13504 ':INT32) (TLVLS-REF13505 ':INT32)
                              (CURLVL-REF13506 ':INT32)
                              (CURPBM-REF13507 ':INT32) (INFO-REF13517 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13504 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF13505 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF13506 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF13507 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13517 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((PRMPTR-REF13508 PRMPTR)
                                            (PERM-REF13509 PERM)
                                            (GIVPTR-REF13510 GIVPTR)
                                            (GIVCOL-REF13511 GIVCOL)
                                            (GIVNUM-REF13512 GIVNUM)
                                            (Q-REF13513 Q) (QPTR-REF13514 QPTR)
                                            (Z-REF13515 Z)
                                            (ZTEMP-REF13516 ZTEMP))
      (%%SLAEDA N-REF13504 TLVLS-REF13505 CURLVL-REF13506 CURPBM-REF13507
       PRMPTR-REF13508 PERM-REF13509 GIVPTR-REF13510 GIVCOL-REF13511
       GIVNUM-REF13512 Q-REF13513 QPTR-REF13514 Z-REF13515 ZTEMP-REF13516
       INFO-REF13517))))

(CFFI:DEFCFUN ("slaein_" %%SLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (RIGHTV :POINTER)
  (NOINIT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VR :POINTER)
  (VI :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (EPS3 :POINTER)
  (SMLNUM :POINTER)
  (BIGNUM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAEIN
                   (RIGHTV NOINIT N H LDH WR WI VR VI B LDB WORK EPS3 SMLNUM
                    BIGNUM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RIGHTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NOINIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS3)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SMLNUM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BIGNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF13518 ':INT32)
                              (NOINIT-REF13519 ':INT32) (N-REF13520 ':INT32)
                              (LDH-REF13522 ':INT32) (WR-REF13523 ':FLOAT)
                              (WI-REF13524 ':FLOAT) (LDB-REF13528 ':INT32)
                              (EPS3-REF13530 ':FLOAT) (SMLNUM-REF13531 ':FLOAT)
                              (BIGNUM-REF13532 ':FLOAT) (INFO-REF13533 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF13518 :INT32) RIGHTV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF13519 :INT32) NOINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13520 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13522 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF13523 :FLOAT) WR)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF13524 :FLOAT) WI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13528 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF13530 :FLOAT) EPS3)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF13531 :FLOAT) SMLNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BIGNUM-REF13532 :FLOAT) BIGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13533 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13521 H) (VR-REF13525 VR)
                                            (VI-REF13526 VI) (B-REF13527 B)
                                            (WORK-REF13529 WORK))
      (%%SLAEIN RIGHTV-REF13518 NOINIT-REF13519 N-REF13520 H-REF13521
       LDH-REF13522 WR-REF13523 WI-REF13524 VR-REF13525 VI-REF13526 B-REF13527
       LDB-REF13528 WORK-REF13529 EPS3-REF13530 SMLNUM-REF13531 BIGNUM-REF13532
       INFO-REF13533))))

(CFFI:DEFCFUN ("slaev2_" %%SLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER)
  (CS1 :POINTER)
  (SN1 :POINTER))

(COMMON-LISP:DEFUN %SLAEV2 (A B C RT1 RT2 CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAEV2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13534 ':FLOAT) (B-REF13535 ':FLOAT)
                              (C-REF13536 ':FLOAT) (RT1-REF13537 ':FLOAT)
                              (RT2-REF13538 ':FLOAT) (CS1-REF13539 ':FLOAT)
                              (SN1-REF13540 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13534 :FLOAT) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13535 :FLOAT) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13536 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF13537 :FLOAT) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF13538 :FLOAT) RT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF13539 :FLOAT) CS1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN1-REF13540 :FLOAT) SN1)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAEV2 A-REF13534 B-REF13535 C-REF13536 RT1-REF13537 RT2-REF13538
       CS1-REF13539 SN1-REF13540))))

(CFFI:DEFCFUN ("slaexc_" %%SLAEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (J1 :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAEXC (WANTQ N T LDT Q LDQ J1 N1 N2 WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAEXC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF13541 ':INT32) (N-REF13542 ':INT32)
                              (LDT-REF13544 ':INT32) (LDQ-REF13546 ':INT32)
                              (J1-REF13547 ':INT32) (N1-REF13548 ':INT32)
                              (N2-REF13549 ':INT32) (INFO-REF13551 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF13541 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13542 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13544 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13546 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF13547 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13548 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF13549 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13551 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF13543 T) (Q-REF13545 Q)
                                            (WORK-REF13550 WORK))
      (%%SLAEXC WANTQ-REF13541 N-REF13542 T-REF13543 LDT-REF13544 Q-REF13545
       LDQ-REF13546 J1-REF13547 N1-REF13548 N2-REF13549 WORK-REF13550
       INFO-REF13551))))

(CFFI:DEFCFUN ("slag2_" %%SLAG2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SAFMIN :POINTER)
  (SCALE1 :POINTER)
  (SCALE2 :POINTER)
  (WR1 :POINTER)
  (WR2 :POINTER)
  (WI :POINTER))

(COMMON-LISP:DEFUN %SLAG2 (A LDA B LDB SAFMIN SCALE1 SCALE2 WR1 WR2 WI)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAG2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SAFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WR1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WR2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WI))
  (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF13553 ':INT32) (LDB-REF13555 ':INT32)
                              (SAFMIN-REF13556 ':FLOAT)
                              (SCALE1-REF13557 ':FLOAT)
                              (SCALE2-REF13558 ':FLOAT) (WR1-REF13559 ':FLOAT)
                              (WR2-REF13560 ':FLOAT) (WI-REF13561 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13553 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13555 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SAFMIN-REF13556 :FLOAT) SAFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE1-REF13557 :FLOAT) SCALE1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE2-REF13558 :FLOAT) SCALE2)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR1-REF13559 :FLOAT) WR1)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR2-REF13560 :FLOAT) WR2)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF13561 :FLOAT) WI)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13552 A) (B-REF13554 B))
      (%%SLAG2 A-REF13552 LDA-REF13553 B-REF13554 LDB-REF13555 SAFMIN-REF13556
       SCALE1-REF13557 SCALE2-REF13558 WR1-REF13559 WR2-REF13560 WI-REF13561))))

(CFFI:DEFCFUN ("slag2d_" %%SLAG2D :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (SA :POINTER)
  (LDSA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAG2D (M N SA LDSA A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAG2D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13562 ':INT32) (N-REF13563 ':INT32)
                              (LDSA-REF13565 ':INT32) (LDA-REF13567 ':INT32)
                              (INFO-REF13568 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13562 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13563 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF13565 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13567 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13568 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SA-REF13564 SA) (A-REF13566 A))
      (%%SLAG2D M-REF13562 N-REF13563 SA-REF13564 LDSA-REF13565 A-REF13566
       LDA-REF13567 INFO-REF13568))))

(CFFI:DEFCFUN ("slags2_" %%SLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPPER :POINTER)
  (A1 :POINTER)
  (A2 :POINTER)
  (A3 :POINTER)
  (B1 :POINTER)
  (B2 :POINTER)
  (B3 :POINTER)
  (CSU :POINTER)
  (SNU :POINTER)
  (CSV :POINTER)
  (SNV :POINTER)
  (CSQ :POINTER)
  (SNQ :POINTER))

(COMMON-LISP:DEFUN %SLAGS2 (UPPER A1 A2 A3 B1 B2 B3 CSU SNU CSV SNV CSQ SNQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPPER)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A3)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B3)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF13569 ':INT32) (A1-REF13570 ':FLOAT)
                              (A2-REF13571 ':FLOAT) (A3-REF13572 ':FLOAT)
                              (B1-REF13573 ':FLOAT) (B2-REF13574 ':FLOAT)
                              (B3-REF13575 ':FLOAT) (CSU-REF13576 ':FLOAT)
                              (SNU-REF13577 ':FLOAT) (CSV-REF13578 ':FLOAT)
                              (SNV-REF13579 ':FLOAT) (CSQ-REF13580 ':FLOAT)
                              (SNQ-REF13581 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF13569 :INT32) UPPER)
    (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF13570 :FLOAT) A1)
    (COMMON-LISP:SETF (CFFI:MEM-REF A2-REF13571 :FLOAT) A2)
    (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF13572 :FLOAT) A3)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF13573 :FLOAT) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF B2-REF13574 :FLOAT) B2)
    (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF13575 :FLOAT) B3)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF13576 :FLOAT) CSU)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNU-REF13577 :FLOAT) SNU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF13578 :FLOAT) CSV)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNV-REF13579 :FLOAT) SNV)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF13580 :FLOAT) CSQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNQ-REF13581 :FLOAT) SNQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAGS2 UPPER-REF13569 A1-REF13570 A2-REF13571 A3-REF13572 B1-REF13573
       B2-REF13574 B3-REF13575 CSU-REF13576 SNU-REF13577 CSV-REF13578
       SNV-REF13579 CSQ-REF13580 SNQ-REF13581))))

(CFFI:DEFCFUN ("slagtf_" %%SLAGTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LAMBDA :POINTER)
  (B :POINTER)
  (C :POINTER)
  (TOL :POINTER)
  (D :POINTER)
  (IN :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAGTF (N A LAMBDA B C TOL D IN INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAGTF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT LAMBDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13582 ':INT32) (LAMBDA-REF13584 ':FLOAT)
                              (TOL-REF13587 ':FLOAT) (INFO-REF13590 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13582 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF13584 :FLOAT) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF13587 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13590 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13583 A) (B-REF13585 B)
                                            (C-REF13586 C) (D-REF13588 D)
                                            (IN-REF13589 IN))
      (%%SLAGTF N-REF13582 A-REF13583 LAMBDA-REF13584 B-REF13585 C-REF13586
       TOL-REF13587 D-REF13588 IN-REF13589 INFO-REF13590))))

(CFFI:DEFCFUN ("slagtm_" %%SLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (ALPHA :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (BETA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %SLAGTM (TRANS N NRHS ALPHA DL D DU X LDX BETA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAGTM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13592 ':INT32) (NRHS-REF13593 ':INT32)
                              (ALPHA-REF13594 ':FLOAT) (LDX-REF13599 ':INT32)
                              (BETA-REF13600 ':FLOAT) (LDB-REF13602 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13592 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13593 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13594 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13599 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13600 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13602 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13595 DL) (D-REF13596 D)
                                            (DU-REF13597 DU) (X-REF13598 X)
                                            (B-REF13601 B))
      (%%SLAGTM TRANS N-REF13592 NRHS-REF13593 ALPHA-REF13594 DL-REF13595
       D-REF13596 DU-REF13597 X-REF13598 LDX-REF13599 BETA-REF13600 B-REF13601
       LDB-REF13602))))

(CFFI:DEFCFUN ("slagts_" %%SLAGTS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :POINTER)
  (N :POINTER)
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (D :POINTER)
  (IN :POINTER)
  (Y :POINTER)
  (TOL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAGTS (JOB N A B C D IN Y TOL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAGTS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF13603 ':INT32) (N-REF13604 ':INT32)
                              (TOL-REF13611 ':FLOAT) (INFO-REF13612 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF13603 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13604 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF13611 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13612 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13605 A) (B-REF13606 B)
                                            (C-REF13607 C) (D-REF13608 D)
                                            (IN-REF13609 IN) (Y-REF13610 Y))
      (%%SLAGTS JOB-REF13603 N-REF13604 A-REF13605 B-REF13606 C-REF13607
       D-REF13608 IN-REF13609 Y-REF13610 TOL-REF13611 INFO-REF13612))))

(CFFI:DEFCFUN ("slagv2_" %%SLAGV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (CSL :POINTER)
  (SNL :POINTER)
  (CSR :POINTER)
  (SNR :POINTER))

(COMMON-LISP:DEFUN %SLAGV2 (A LDA B LDB ALPHAR ALPHAI BETA CSL SNL CSR SNR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAGV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNR))
  (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF13614 ':INT32) (LDB-REF13616 ':INT32)
                              (CSL-REF13620 ':FLOAT) (SNL-REF13621 ':FLOAT)
                              (CSR-REF13622 ':FLOAT) (SNR-REF13623 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13614 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13616 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF13620 :FLOAT) CSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF13621 :FLOAT) SNL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF13622 :FLOAT) CSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF13623 :FLOAT) SNR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13613 A) (B-REF13615 B)
                                            (ALPHAR-REF13617 ALPHAR)
                                            (ALPHAI-REF13618 ALPHAI)
                                            (BETA-REF13619 BETA))
      (%%SLAGV2 A-REF13613 LDA-REF13614 B-REF13615 LDB-REF13616 ALPHAR-REF13617
       ALPHAI-REF13618 BETA-REF13619 CSL-REF13620 SNL-REF13621 CSR-REF13622
       SNR-REF13623))))

(CFFI:DEFCFUN ("slahqr_" %%SLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAHQR
                   (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAHQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF13624 ':INT32) (WANTZ-REF13625 ':INT32)
                              (N-REF13626 ':INT32) (ILO-REF13627 ':INT32)
                              (IHI-REF13628 ':INT32) (LDH-REF13630 ':INT32)
                              (ILOZ-REF13633 ':INT32) (IHIZ-REF13634 ':INT32)
                              (LDZ-REF13636 ':INT32) (INFO-REF13637 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF13624 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13625 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13626 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13627 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13628 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13630 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF13633 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF13634 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13636 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13637 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13629 H) (WR-REF13631 WR)
                                            (WI-REF13632 WI) (Z-REF13635 Z))
      (%%SLAHQR WANTT-REF13624 WANTZ-REF13625 N-REF13626 ILO-REF13627
       IHI-REF13628 H-REF13629 LDH-REF13630 WR-REF13631 WI-REF13632
       ILOZ-REF13633 IHIZ-REF13634 Z-REF13635 LDZ-REF13636 INFO-REF13637))))

(CFFI:DEFCFUN ("slahr2_" %%SLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %SLAHR2 (N K NB A LDA TAU T LDT Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAHR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13638 ':INT32) (K-REF13639 ':INT32)
                              (NB-REF13640 ':INT32) (LDA-REF13642 ':INT32)
                              (LDT-REF13645 ':INT32) (LDY-REF13647 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13638 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13639 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13640 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13642 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13645 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13647 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13641 A) (TAU-REF13643 TAU)
                                            (T-REF13644 T) (Y-REF13646 Y))
      (%%SLAHR2 N-REF13638 K-REF13639 NB-REF13640 A-REF13641 LDA-REF13642
       TAU-REF13643 T-REF13644 LDT-REF13645 Y-REF13646 LDY-REF13647))))

(CFFI:DEFCFUN ("slaic1_" %%SLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :POINTER)
  (J :POINTER)
  (X :POINTER)
  (SEST :POINTER)
  (W :POINTER)
  (GAMMA :POINTER)
  (SESTPR :POINTER)
  (S :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %SLAIC1 (JOB J X SEST W GAMMA SESTPR S C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAIC1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SEST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT GAMMA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SESTPR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF13648 ':INT32) (J-REF13649 ':INT32)
                              (SEST-REF13651 ':FLOAT) (GAMMA-REF13653 ':FLOAT)
                              (SESTPR-REF13654 ':FLOAT) (S-REF13655 ':FLOAT)
                              (C-REF13656 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF13648 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF J-REF13649 :INT32) J)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF13651 :FLOAT) SEST)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAMMA-REF13653 :FLOAT) GAMMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF13654 :FLOAT) SESTPR)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF13655 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13656 :FLOAT) C)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13650 X) (W-REF13652 W))
      (%%SLAIC1 JOB-REF13648 J-REF13649 X-REF13650 SEST-REF13651 W-REF13652
       GAMMA-REF13653 SESTPR-REF13654 S-REF13655 C-REF13656))))

(CFFI:DEFCFUN ("slaisnan_" %%SLAISNAN :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (SIN1 :POINTER)
  (SIN2 :POINTER))

(COMMON-LISP:DEFUN %SLAISNAN (SIN1 SIN2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAISNAN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIN2))
  (CFFI:WITH-FOREIGN-OBJECTS ((SIN1-REF13657 ':FLOAT) (SIN2-REF13658 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF SIN1-REF13657 :FLOAT) SIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIN2-REF13658 :FLOAT) SIN2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAISNAN SIN1-REF13657 SIN2-REF13658))))

(CFFI:DEFCFUN ("slaln2_" %%SLALN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (LTRANS :POINTER)
  (NA :POINTER)
  (NW :POINTER)
  (SMIN :POINTER)
  (CA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D1 :POINTER)
  (D2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (SCALE :POINTER)
  (XNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLALN2
                   (LTRANS NA NW SMIN CA A LDA D1 D2 B LDB WR WI X LDX SCALE
                    XNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLALN2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT D1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT D2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT XNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRANS-REF13659 ':INT32) (NA-REF13660 ':INT32)
                              (NW-REF13661 ':INT32) (SMIN-REF13662 ':FLOAT)
                              (CA-REF13663 ':FLOAT) (LDA-REF13665 ':INT32)
                              (D1-REF13666 ':FLOAT) (D2-REF13667 ':FLOAT)
                              (LDB-REF13669 ':INT32) (WR-REF13670 ':FLOAT)
                              (WI-REF13671 ':FLOAT) (LDX-REF13673 ':INT32)
                              (SCALE-REF13674 ':FLOAT) (XNORM-REF13675 ':FLOAT)
                              (INFO-REF13676 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANS-REF13659 :INT32) LTRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NA-REF13660 :INT32) NA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF13661 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMIN-REF13662 :FLOAT) SMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF CA-REF13663 :FLOAT) CA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13665 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF D1-REF13666 :FLOAT) D1)
    (COMMON-LISP:SETF (CFFI:MEM-REF D2-REF13667 :FLOAT) D2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13669 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF13670 :FLOAT) WR)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF13671 :FLOAT) WI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13673 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF13674 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF13675 :FLOAT) XNORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13676 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13664 A) (B-REF13668 B)
                                            (X-REF13672 X))
      (%%SLALN2 LTRANS-REF13659 NA-REF13660 NW-REF13661 SMIN-REF13662
       CA-REF13663 A-REF13664 LDA-REF13665 D1-REF13666 D2-REF13667 B-REF13668
       LDB-REF13669 WR-REF13670 WI-REF13671 X-REF13672 LDX-REF13673
       SCALE-REF13674 XNORM-REF13675 INFO-REF13676))))

(CFFI:DEFCFUN ("slals0_" %%SLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (POLES :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (K :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLALS0
                   (ICOMPQ NL NR SQRE NRHS B LDB BX LDBX PERM GIVPTR GIVCOL
                    LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLALS0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13677 ':INT32) (NL-REF13678 ':INT32)
                              (NR-REF13679 ':INT32) (SQRE-REF13680 ':INT32)
                              (NRHS-REF13681 ':INT32) (LDB-REF13683 ':INT32)
                              (LDBX-REF13685 ':INT32) (GIVPTR-REF13687 ':INT32)
                              (LDGCOL-REF13689 ':INT32)
                              (LDGNUM-REF13691 ':INT32) (K-REF13696 ':INT32)
                              (C-REF13697 ':FLOAT) (S-REF13698 ':FLOAT)
                              (INFO-REF13700 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13677 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF13678 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF13679 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF13680 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13681 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13683 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF13685 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF13687 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF13689 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF13691 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13696 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13697 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF13698 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13700 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF13682 B) (BX-REF13684 BX)
                                            (PERM-REF13686 PERM)
                                            (GIVCOL-REF13688 GIVCOL)
                                            (GIVNUM-REF13690 GIVNUM)
                                            (POLES-REF13692 POLES)
                                            (DIFL-REF13693 DIFL)
                                            (DIFR-REF13694 DIFR) (Z-REF13695 Z)
                                            (WORK-REF13699 WORK))
      (%%SLALS0 ICOMPQ-REF13677 NL-REF13678 NR-REF13679 SQRE-REF13680
       NRHS-REF13681 B-REF13682 LDB-REF13683 BX-REF13684 LDBX-REF13685
       PERM-REF13686 GIVPTR-REF13687 GIVCOL-REF13688 LDGCOL-REF13689
       GIVNUM-REF13690 LDGNUM-REF13691 POLES-REF13692 DIFL-REF13693
       DIFR-REF13694 Z-REF13695 K-REF13696 C-REF13697 S-REF13698 WORK-REF13699
       INFO-REF13700))))

(CFFI:DEFCFUN ("slalsa_" %%SLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (K :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (POLES :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (PERM :POINTER)
  (GIVNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLALSA
                   (ICOMPQ SMLSIZ N NRHS B LDB BX LDBX U LDU VT K DIFL DIFR Z
                    POLES GIVPTR GIVCOL LDGCOL PERM GIVNUM C S WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLALSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13701 ':INT32)
                              (SMLSIZ-REF13702 ':INT32) (N-REF13703 ':INT32)
                              (NRHS-REF13704 ':INT32) (LDB-REF13706 ':INT32)
                              (LDBX-REF13708 ':INT32) (LDU-REF13710 ':INT32)
                              (LDGCOL-REF13719 ':INT32) (INFO-REF13726 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13701 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF13702 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13703 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13704 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13706 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF13708 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF13710 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF13719 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13726 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF13705 B) (BX-REF13707 BX)
                                            (U-REF13709 U) (VT-REF13711 VT)
                                            (K-REF13712 K) (DIFL-REF13713 DIFL)
                                            (DIFR-REF13714 DIFR) (Z-REF13715 Z)
                                            (POLES-REF13716 POLES)
                                            (GIVPTR-REF13717 GIVPTR)
                                            (GIVCOL-REF13718 GIVCOL)
                                            (PERM-REF13720 PERM)
                                            (GIVNUM-REF13721 GIVNUM)
                                            (C-REF13722 C) (S-REF13723 S)
                                            (WORK-REF13724 WORK)
                                            (IWORK-REF13725 IWORK))
      (%%SLALSA ICOMPQ-REF13701 SMLSIZ-REF13702 N-REF13703 NRHS-REF13704
       B-REF13705 LDB-REF13706 BX-REF13707 LDBX-REF13708 U-REF13709
       LDU-REF13710 VT-REF13711 K-REF13712 DIFL-REF13713 DIFR-REF13714
       Z-REF13715 POLES-REF13716 GIVPTR-REF13717 GIVCOL-REF13718
       LDGCOL-REF13719 PERM-REF13720 GIVNUM-REF13721 C-REF13722 S-REF13723
       WORK-REF13724 IWORK-REF13725 INFO-REF13726))))

(CFFI:DEFCFUN ("slalsd_" %%SLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLALSD
                   (UPLO SMLSIZ N NRHS D E B LDB RCOND RANK WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLALSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF13728 ':INT32) (N-REF13729 ':INT32)
                              (NRHS-REF13730 ':INT32) (LDB-REF13734 ':INT32)
                              (RCOND-REF13735 ':FLOAT) (RANK-REF13736 ':INT32)
                              (INFO-REF13739 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF13728 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13729 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13730 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13734 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13735 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF13736 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13739 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13731 D) (E-REF13732 E)
                                            (B-REF13733 B) (WORK-REF13737 WORK)
                                            (IWORK-REF13738 IWORK))
      (%%SLALSD UPLO SMLSIZ-REF13728 N-REF13729 NRHS-REF13730 D-REF13731
       E-REF13732 B-REF13733 LDB-REF13734 RCOND-REF13735 RANK-REF13736
       WORK-REF13737 IWORK-REF13738 INFO-REF13739))))

(CFFI:DEFCFUN ("slamrg_" %%SLAMRG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N1 :POINTER)
  (N2 :POINTER)
  (A :POINTER)
  (STRD1 :POINTER)
  (STRD2 :POINTER)
  (INDEX :POINTER))

(COMMON-LISP:DEFUN %SLAMRG (N1 N2 A STRD1 STRD2 INDEX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAMRG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) STRD1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) STRD2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N1-REF13740 ':INT32) (N2-REF13741 ':INT32)
                              (STRD1-REF13743 ':INT32) (STRD2-REF13744 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13740 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF13741 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF STRD1-REF13743 :INT32) STRD1)
    (COMMON-LISP:SETF (CFFI:MEM-REF STRD2-REF13744 :INT32) STRD2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13742 A)
                                            (INDEX-REF13745 INDEX))
      (%%SLAMRG N1-REF13740 N2-REF13741 A-REF13742 STRD1-REF13743
       STRD2-REF13744 INDEX-REF13745))))

(CFFI:DEFCFUN ("slamswlq_" %%SLAMSWLQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAMSWLQ
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAMSWLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13748 ':INT32) (N-REF13749 ':INT32)
                              (K-REF13750 ':INT32) (MB-REF13751 ':INT32)
                              (NB-REF13752 ':INT32) (LDA-REF13754 ':INT32)
                              (LDT-REF13756 ':INT32) (LDC-REF13758 ':INT32)
                              (LWORK-REF13760 ':INT32) (INFO-REF13761 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13748 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13749 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13750 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF13751 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13752 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13754 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13756 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13758 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13760 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13761 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13753 A) (T-REF13755 T)
                                            (C-REF13757 C) (WORK-REF13759 WORK))
      (%%SLAMSWLQ SIDE TRANS M-REF13748 N-REF13749 K-REF13750 MB-REF13751
       NB-REF13752 A-REF13753 LDA-REF13754 T-REF13755 LDT-REF13756 C-REF13757
       LDC-REF13758 WORK-REF13759 LWORK-REF13760 INFO-REF13761))))

(CFFI:DEFCFUN ("slamtsqr_" %%SLAMTSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAMTSQR
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAMTSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13764 ':INT32) (N-REF13765 ':INT32)
                              (K-REF13766 ':INT32) (MB-REF13767 ':INT32)
                              (NB-REF13768 ':INT32) (LDA-REF13770 ':INT32)
                              (LDT-REF13772 ':INT32) (LDC-REF13774 ':INT32)
                              (LWORK-REF13776 ':INT32) (INFO-REF13777 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13764 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13765 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13766 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF13767 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13768 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13770 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13772 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13774 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13776 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13777 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13769 A) (T-REF13771 T)
                                            (C-REF13773 C) (WORK-REF13775 WORK))
      (%%SLAMTSQR SIDE TRANS M-REF13764 N-REF13765 K-REF13766 MB-REF13767
       NB-REF13768 A-REF13769 LDA-REF13770 T-REF13771 LDT-REF13772 C-REF13773
       LDC-REF13774 WORK-REF13775 LWORK-REF13776 INFO-REF13777))))

(CFFI:DEFCFUN ("slaneg_" %%SLANEG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (N :POINTER)
  (D :POINTER)
  (LLD :POINTER)
  (SIGMA :POINTER)
  (PIVMIN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %SLANEG (N D LLD SIGMA PIVMIN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANEG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13778 ':INT32) (SIGMA-REF13781 ':FLOAT)
                              (PIVMIN-REF13782 ':FLOAT) (R-REF13783 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13778 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF13781 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF13782 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF13783 :INT32) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13779 D) (LLD-REF13780 LLD))
      (%%SLANEG N-REF13778 D-REF13779 LLD-REF13780 SIGMA-REF13781
       PIVMIN-REF13782 R-REF13783))))

(CFFI:DEFCFUN ("slangb_" %%SLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANGB (NORM N KL KU AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANGB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13785 ':INT32) (KL-REF13786 ':INT32)
                              (KU-REF13787 ':INT32) (LDAB-REF13789 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13785 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13786 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13787 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13789 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13788 AB)
                                            (WORK-REF13790 WORK))
      (%%SLANGB NORM N-REF13785 KL-REF13786 KU-REF13787 AB-REF13788
       LDAB-REF13789 WORK-REF13790))))

(CFFI:DEFCFUN ("slange_" %%SLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANGE (NORM M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13792 ':INT32) (N-REF13793 ':INT32)
                              (LDA-REF13795 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13792 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13793 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13795 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13794 A) (WORK-REF13796 WORK))
      (%%SLANGE NORM M-REF13792 N-REF13793 A-REF13794 LDA-REF13795
       WORK-REF13796))))

(CFFI:DEFCFUN ("slangt_" %%SLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER))

(COMMON-LISP:DEFUN %SLANGT (NORM N DL D DU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANGT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13798 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13798 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13799 DL) (D-REF13800 D)
                                            (DU-REF13801 DU))
      (%%SLANGT NORM N-REF13798 DL-REF13799 D-REF13800 DU-REF13801))))

(CFFI:DEFCFUN ("slanhs_" %%SLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANHS (NORM N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANHS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13803 ':INT32) (LDA-REF13805 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13803 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13805 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13804 A) (WORK-REF13806 WORK))
      (%%SLANHS NORM N-REF13803 A-REF13804 LDA-REF13805 WORK-REF13806))))

(CFFI:DEFCFUN ("slansb_" %%SLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANSB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13809 ':INT32) (K-REF13810 ':INT32)
                              (LDAB-REF13812 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13809 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13810 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13812 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13811 AB)
                                            (WORK-REF13813 WORK))
      (%%SLANSB NORM UPLO N-REF13809 K-REF13810 AB-REF13811 LDAB-REF13812
       WORK-REF13813))))

(CFFI:DEFCFUN ("slansf_" %%SLANSF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANSF (NORM TRANSR UPLO N A WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANSF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13817 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13817 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13818 A) (WORK-REF13819 WORK))
      (%%SLANSF NORM TRANSR UPLO N-REF13817 A-REF13818 WORK-REF13819))))

(CFFI:DEFCFUN ("slansp_" %%SLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANSP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13822 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13822 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF13823 AP)
                                            (WORK-REF13824 WORK))
      (%%SLANSP NORM UPLO N-REF13822 AP-REF13823 WORK-REF13824))))

(CFFI:DEFCFUN ("slanst_" %%SLANST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER))

(COMMON-LISP:DEFUN %SLANST (NORM N D E)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANST)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13826 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13826 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13827 D) (E-REF13828 E))
      (%%SLANST NORM N-REF13826 D-REF13827 E-REF13828))))

(CFFI:DEFCFUN ("slansy_" %%SLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANSY (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13831 ':INT32) (LDA-REF13833 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13831 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13833 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13832 A) (WORK-REF13834 WORK))
      (%%SLANSY NORM UPLO N-REF13831 A-REF13832 LDA-REF13833 WORK-REF13834))))

(CFFI:DEFCFUN ("slantb_" %%SLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANTB (NORM UPLO DIAG N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANTB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13838 ':INT32) (K-REF13839 ':INT32)
                              (LDAB-REF13841 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13838 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13839 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13841 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13840 AB)
                                            (WORK-REF13842 WORK))
      (%%SLANTB NORM UPLO DIAG N-REF13838 K-REF13839 AB-REF13840 LDAB-REF13841
       WORK-REF13842))))

(CFFI:DEFCFUN ("slantp_" %%SLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANTP (NORM UPLO DIAG N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13846 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13846 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF13847 AP)
                                            (WORK-REF13848 WORK))
      (%%SLANTP NORM UPLO DIAG N-REF13846 AP-REF13847 WORK-REF13848))))

(CFFI:DEFCFUN ("slantr_" %%SLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANTR (NORM UPLO DIAG M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13852 ':INT32) (N-REF13853 ':INT32)
                              (LDA-REF13855 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13852 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13853 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13855 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13854 A) (WORK-REF13856 WORK))
      (%%SLANTR NORM UPLO DIAG M-REF13852 N-REF13853 A-REF13854 LDA-REF13855
       WORK-REF13856))))

(CFFI:DEFCFUN ("slanv2_" %%SLANV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (D :POINTER)
  (RT1R :POINTER)
  (RT1I :POINTER)
  (RT2R :POINTER)
  (RT2I :POINTER)
  (CS :POINTER)
  (SN :POINTER))

(COMMON-LISP:DEFUN %SLANV2 (A B C D RT1R RT1I RT2R RT2I CS SN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANV2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT D)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1R)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1I)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2R)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2I)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13857 ':FLOAT) (B-REF13858 ':FLOAT)
                              (C-REF13859 ':FLOAT) (D-REF13860 ':FLOAT)
                              (RT1R-REF13861 ':FLOAT) (RT1I-REF13862 ':FLOAT)
                              (RT2R-REF13863 ':FLOAT) (RT2I-REF13864 ':FLOAT)
                              (CS-REF13865 ':FLOAT) (SN-REF13866 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13857 :FLOAT) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13858 :FLOAT) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13859 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF D-REF13860 :FLOAT) D)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1R-REF13861 :FLOAT) RT1R)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1I-REF13862 :FLOAT) RT1I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2R-REF13863 :FLOAT) RT2R)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2I-REF13864 :FLOAT) RT2I)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF13865 :FLOAT) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF13866 :FLOAT) SN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLANV2 A-REF13857 B-REF13858 C-REF13859 D-REF13860 RT1R-REF13861
       RT1I-REF13862 RT2R-REF13863 RT2I-REF13864 CS-REF13865 SN-REF13866))))

(CFFI:DEFCFUN ("slaorhr_col_getrfnp_" %%SLAORHR_COL_GETRFNP :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAORHR_COL_GETRFNP (M N A LDA D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAORHR_COL_GETRFNP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13867 ':INT32) (N-REF13868 ':INT32)
                              (LDA-REF13870 ':INT32) (INFO-REF13872 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13867 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13868 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13870 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13872 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13869 A) (D-REF13871 D))
      (%%SLAORHR_COL_GETRFNP M-REF13867 N-REF13868 A-REF13869 LDA-REF13870
       D-REF13871 INFO-REF13872))))

(CFFI:DEFCFUN ("slaorhr_col_getrfnp2_" %%SLAORHR_COL_GETRFNP2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAORHR_COL_GETRFNP2 (M N A LDA D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAORHR_COL_GETRFNP2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13873 ':INT32) (N-REF13874 ':INT32)
                              (LDA-REF13876 ':INT32) (INFO-REF13878 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13873 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13874 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13876 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13878 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13875 A) (D-REF13877 D))
      (%%SLAORHR_COL_GETRFNP2 M-REF13873 N-REF13874 A-REF13875 LDA-REF13876
       D-REF13877 INFO-REF13878))))

(CFFI:DEFCFUN ("slapll_" %%SLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (SSMIN :POINTER))

(COMMON-LISP:DEFUN %SLAPLL (N X INCX Y INCY SSMIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPLL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13879 ':INT32) (INCX-REF13881 ':INT32)
                              (INCY-REF13883 ':INT32) (SSMIN-REF13884 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13879 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13881 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13883 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF13884 :FLOAT) SSMIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13880 X) (Y-REF13882 Y))
      (%%SLAPLL N-REF13879 X-REF13880 INCX-REF13881 Y-REF13882 INCY-REF13883
       SSMIN-REF13884))))

(CFFI:DEFCFUN ("slapmr_" %%SLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %SLAPMR (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPMR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF13885 ':INT32) (M-REF13886 ':INT32)
                              (N-REF13887 ':INT32) (LDX-REF13889 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF13885 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13886 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13887 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13889 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13888 X) (K-REF13890 K))
      (%%SLAPMR FORWRD-REF13885 M-REF13886 N-REF13887 X-REF13888 LDX-REF13889
       K-REF13890))))

(CFFI:DEFCFUN ("slapmt_" %%SLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %SLAPMT (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPMT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF13891 ':INT32) (M-REF13892 ':INT32)
                              (N-REF13893 ':INT32) (LDX-REF13895 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF13891 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13892 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13893 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13895 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13894 X) (K-REF13896 K))
      (%%SLAPMT FORWRD-REF13891 M-REF13892 N-REF13893 X-REF13894 LDX-REF13895
       K-REF13896))))

(CFFI:DEFCFUN ("slapy2_" %%SLAPY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (X :POINTER)
  (Y :POINTER))

(COMMON-LISP:DEFUN %SLAPY2 (X Y)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPY2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Y))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF13897 ':FLOAT) (Y-REF13898 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF13897 :FLOAT) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF13898 :FLOAT) Y)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAPY2 X-REF13897 Y-REF13898))))

(CFFI:DEFCFUN ("slapy3_" %%SLAPY3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (X :POINTER)
  (Y :POINTER)
  (Z :POINTER))

(COMMON-LISP:DEFUN %SLAPY3 (X Y Z)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPY3)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Y)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Z))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF13899 ':FLOAT) (Y-REF13900 ':FLOAT)
                              (Z-REF13901 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF13899 :FLOAT) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF13900 :FLOAT) Y)
    (COMMON-LISP:SETF (CFFI:MEM-REF Z-REF13901 :FLOAT) Z)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAPY3 X-REF13899 Y-REF13900 Z-REF13901))))

(CFFI:DEFCFUN ("slaqgb_" %%SLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %SLAQGB (M N KL KU AB LDAB R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQGB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13902 ':INT32) (N-REF13903 ':INT32)
                              (KL-REF13904 ':INT32) (KU-REF13905 ':INT32)
                              (LDAB-REF13907 ':INT32) (ROWCND-REF13910 ':FLOAT)
                              (COLCND-REF13911 ':FLOAT) (AMAX-REF13912 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13902 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13903 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13904 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13905 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13907 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF13910 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF13911 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF13912 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13906 AB) (R-REF13908 R)
                                            (C-REF13909 C))
      (%%SLAQGB M-REF13902 N-REF13903 KL-REF13904 KU-REF13905 AB-REF13906
       LDAB-REF13907 R-REF13908 C-REF13909 ROWCND-REF13910 COLCND-REF13911
       AMAX-REF13912 EQUED))))

(CFFI:DEFCFUN ("slaqge_" %%SLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %SLAQGE (M N A LDA R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13914 ':INT32) (N-REF13915 ':INT32)
                              (LDA-REF13917 ':INT32) (ROWCND-REF13920 ':FLOAT)
                              (COLCND-REF13921 ':FLOAT) (AMAX-REF13922 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13914 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13915 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13917 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF13920 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF13921 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF13922 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13916 A) (R-REF13918 R)
                                            (C-REF13919 C))
      (%%SLAQGE M-REF13914 N-REF13915 A-REF13916 LDA-REF13917 R-REF13918
       C-REF13919 ROWCND-REF13920 COLCND-REF13921 AMAX-REF13922 EQUED))))

(CFFI:DEFCFUN ("slaqp2_" %%SLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLAQP2 (M N OFFSET A LDA JPVT TAU VN1 VN2 WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQP2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13924 ':INT32) (N-REF13925 ':INT32)
                              (OFFSET-REF13926 ':INT32) (LDA-REF13928 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13924 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13925 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF13926 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13928 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13927 A) (JPVT-REF13929 JPVT)
                                            (TAU-REF13930 TAU)
                                            (VN1-REF13931 VN1)
                                            (VN2-REF13932 VN2)
                                            (WORK-REF13933 WORK))
      (%%SLAQP2 M-REF13924 N-REF13925 OFFSET-REF13926 A-REF13927 LDA-REF13928
       JPVT-REF13929 TAU-REF13930 VN1-REF13931 VN2-REF13932 WORK-REF13933))))

(CFFI:DEFCFUN ("slaqps_" %%SLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (AUXV :POINTER)
  (F :POINTER)
  (LDF :POINTER))

(COMMON-LISP:DEFUN %SLAQPS (M N OFFSET NB KB A LDA JPVT TAU VN1 VN2 AUXV F LDF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQPS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AUXV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13934 ':INT32) (N-REF13935 ':INT32)
                              (OFFSET-REF13936 ':INT32) (NB-REF13937 ':INT32)
                              (KB-REF13938 ':INT32) (LDA-REF13940 ':INT32)
                              (LDF-REF13947 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13934 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13935 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF13936 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13937 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF13938 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13940 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF13947 :INT32) LDF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13939 A) (JPVT-REF13941 JPVT)
                                            (TAU-REF13942 TAU)
                                            (VN1-REF13943 VN1)
                                            (VN2-REF13944 VN2)
                                            (AUXV-REF13945 AUXV) (F-REF13946 F))
      (%%SLAQPS M-REF13934 N-REF13935 OFFSET-REF13936 NB-REF13937 KB-REF13938
       A-REF13939 LDA-REF13940 JPVT-REF13941 TAU-REF13942 VN1-REF13943
       VN2-REF13944 AUXV-REF13945 F-REF13946 LDF-REF13947))))

(CFFI:DEFCFUN ("slaqr0_" %%SLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAQR0
                   (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF13948 ':INT32) (WANTZ-REF13949 ':INT32)
                              (N-REF13950 ':INT32) (ILO-REF13951 ':INT32)
                              (IHI-REF13952 ':INT32) (LDH-REF13954 ':INT32)
                              (ILOZ-REF13957 ':INT32) (IHIZ-REF13958 ':INT32)
                              (LDZ-REF13960 ':INT32) (LWORK-REF13962 ':INT32)
                              (INFO-REF13963 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF13948 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13949 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13950 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13951 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13952 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13954 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF13957 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF13958 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13960 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13962 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13963 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13953 H) (WR-REF13955 WR)
                                            (WI-REF13956 WI) (Z-REF13959 Z)
                                            (WORK-REF13961 WORK))
      (%%SLAQR0 WANTT-REF13948 WANTZ-REF13949 N-REF13950 ILO-REF13951
       IHI-REF13952 H-REF13953 LDH-REF13954 WR-REF13955 WI-REF13956
       ILOZ-REF13957 IHIZ-REF13958 Z-REF13959 LDZ-REF13960 WORK-REF13961
       LWORK-REF13962 INFO-REF13963))))

(CFFI:DEFCFUN ("slaqr1_" %%SLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (SR1 :POINTER)
  (SI1 :POINTER)
  (SR2 :POINTER)
  (SI2 :POINTER)
  (V :POINTER))

(COMMON-LISP:DEFUN %SLAQR1 (N H LDH SR1 SI1 SR2 SI2 V)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SR1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SI1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SR2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SI2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13964 ':INT32) (LDH-REF13966 ':INT32)
                              (SR1-REF13967 ':FLOAT) (SI1-REF13968 ':FLOAT)
                              (SR2-REF13969 ':FLOAT) (SI2-REF13970 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13964 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13966 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF SR1-REF13967 :FLOAT) SR1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SI1-REF13968 :FLOAT) SI1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SR2-REF13969 :FLOAT) SR2)
    (COMMON-LISP:SETF (CFFI:MEM-REF SI2-REF13970 :FLOAT) SI2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13965 H) (V-REF13971 V))
      (%%SLAQR1 N-REF13964 H-REF13965 LDH-REF13966 SR1-REF13967 SI1-REF13968
       SR2-REF13969 SI2-REF13970 V-REF13971))))

(CFFI:DEFCFUN ("slaqr2_" %%SLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SR :POINTER)
  (SI :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %SLAQR2
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SR
                    SI V LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF13972 ':INT32) (WANTZ-REF13973 ':INT32)
                              (N-REF13974 ':INT32) (KTOP-REF13975 ':INT32)
                              (KBOT-REF13976 ':INT32) (NW-REF13977 ':INT32)
                              (LDH-REF13979 ':INT32) (ILOZ-REF13980 ':INT32)
                              (IHIZ-REF13981 ':INT32) (LDZ-REF13983 ':INT32)
                              (NS-REF13984 ':INT32) (ND-REF13985 ':INT32)
                              (LDV-REF13989 ':INT32) (NH-REF13990 ':INT32)
                              (LDT-REF13992 ':INT32) (NV-REF13993 ':INT32)
                              (LDWV-REF13995 ':INT32) (LWORK-REF13997 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF13972 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13973 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13974 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF13975 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF13976 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF13977 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13979 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF13980 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF13981 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13983 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF13984 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF13985 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF13989 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF13990 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13992 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF13993 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF13995 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13997 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13978 H) (Z-REF13982 Z)
                                            (SR-REF13986 SR) (SI-REF13987 SI)
                                            (V-REF13988 V) (T-REF13991 T)
                                            (WV-REF13994 WV)
                                            (WORK-REF13996 WORK))
      (%%SLAQR2 WANTT-REF13972 WANTZ-REF13973 N-REF13974 KTOP-REF13975
       KBOT-REF13976 NW-REF13977 H-REF13978 LDH-REF13979 ILOZ-REF13980
       IHIZ-REF13981 Z-REF13982 LDZ-REF13983 NS-REF13984 ND-REF13985
       SR-REF13986 SI-REF13987 V-REF13988 LDV-REF13989 NH-REF13990 T-REF13991
       LDT-REF13992 NV-REF13993 WV-REF13994 LDWV-REF13995 WORK-REF13996
       LWORK-REF13997))))

(CFFI:DEFCFUN ("slaqr3_" %%SLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SR :POINTER)
  (SI :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %SLAQR3
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SR
                    SI V LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF13998 ':INT32) (WANTZ-REF13999 ':INT32)
                              (N-REF14000 ':INT32) (KTOP-REF14001 ':INT32)
                              (KBOT-REF14002 ':INT32) (NW-REF14003 ':INT32)
                              (LDH-REF14005 ':INT32) (ILOZ-REF14006 ':INT32)
                              (IHIZ-REF14007 ':INT32) (LDZ-REF14009 ':INT32)
                              (NS-REF14010 ':INT32) (ND-REF14011 ':INT32)
                              (LDV-REF14015 ':INT32) (NH-REF14016 ':INT32)
                              (LDT-REF14018 ':INT32) (NV-REF14019 ':INT32)
                              (LDWV-REF14021 ':INT32) (LWORK-REF14023 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF13998 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13999 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14000 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF14001 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF14002 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF14003 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14005 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF14006 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF14007 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14009 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF14010 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF14011 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14015 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF14016 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14018 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF14019 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF14021 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14023 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF14004 H) (Z-REF14008 Z)
                                            (SR-REF14012 SR) (SI-REF14013 SI)
                                            (V-REF14014 V) (T-REF14017 T)
                                            (WV-REF14020 WV)
                                            (WORK-REF14022 WORK))
      (%%SLAQR3 WANTT-REF13998 WANTZ-REF13999 N-REF14000 KTOP-REF14001
       KBOT-REF14002 NW-REF14003 H-REF14004 LDH-REF14005 ILOZ-REF14006
       IHIZ-REF14007 Z-REF14008 LDZ-REF14009 NS-REF14010 ND-REF14011
       SR-REF14012 SI-REF14013 V-REF14014 LDV-REF14015 NH-REF14016 T-REF14017
       LDT-REF14018 NV-REF14019 WV-REF14020 LDWV-REF14021 WORK-REF14022
       LWORK-REF14023))))

(CFFI:DEFCFUN ("slaqr4_" %%SLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAQR4
                   (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF14024 ':INT32) (WANTZ-REF14025 ':INT32)
                              (N-REF14026 ':INT32) (ILO-REF14027 ':INT32)
                              (IHI-REF14028 ':INT32) (LDH-REF14030 ':INT32)
                              (ILOZ-REF14033 ':INT32) (IHIZ-REF14034 ':INT32)
                              (LDZ-REF14036 ':INT32) (LWORK-REF14038 ':INT32)
                              (INFO-REF14039 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF14024 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF14025 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14026 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF14027 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF14028 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14030 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF14033 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF14034 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14036 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14038 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14039 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF14029 H) (WR-REF14031 WR)
                                            (WI-REF14032 WI) (Z-REF14035 Z)
                                            (WORK-REF14037 WORK))
      (%%SLAQR4 WANTT-REF14024 WANTZ-REF14025 N-REF14026 ILO-REF14027
       IHI-REF14028 H-REF14029 LDH-REF14030 WR-REF14031 WI-REF14032
       ILOZ-REF14033 IHIZ-REF14034 Z-REF14035 LDZ-REF14036 WORK-REF14037
       LWORK-REF14038 INFO-REF14039))))

(CFFI:DEFCFUN ("slaqr5_" %%SLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (KACC22 :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NSHFTS :POINTER)
  (SR :POINTER)
  (SI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (NH :POINTER)
  (WH :POINTER)
  (LDWH :POINTER))

(COMMON-LISP:DEFUN %SLAQR5
                   (WANTT WANTZ KACC22 N KTOP KBOT NSHFTS SR SI H LDH ILOZ IHIZ
                    Z LDZ V LDV U LDU NV WV LDWV NH WH LDWH)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KACC22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSHFTS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF14040 ':INT32) (WANTZ-REF14041 ':INT32)
                              (KACC22-REF14042 ':INT32) (N-REF14043 ':INT32)
                              (KTOP-REF14044 ':INT32) (KBOT-REF14045 ':INT32)
                              (NSHFTS-REF14046 ':INT32) (LDH-REF14050 ':INT32)
                              (ILOZ-REF14051 ':INT32) (IHIZ-REF14052 ':INT32)
                              (LDZ-REF14054 ':INT32) (LDV-REF14056 ':INT32)
                              (LDU-REF14058 ':INT32) (NV-REF14059 ':INT32)
                              (LDWV-REF14061 ':INT32) (NH-REF14062 ':INT32)
                              (LDWH-REF14064 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF14040 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF14041 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF14042 :INT32) KACC22)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14043 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF14044 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF14045 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF14046 :INT32) NSHFTS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14050 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF14051 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF14052 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14054 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14056 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14058 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF14059 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF14061 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF14062 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF14064 :INT32) LDWH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SR-REF14047 SR) (SI-REF14048 SI)
                                            (H-REF14049 H) (Z-REF14053 Z)
                                            (V-REF14055 V) (U-REF14057 U)
                                            (WV-REF14060 WV) (WH-REF14063 WH))
      (%%SLAQR5 WANTT-REF14040 WANTZ-REF14041 KACC22-REF14042 N-REF14043
       KTOP-REF14044 KBOT-REF14045 NSHFTS-REF14046 SR-REF14047 SI-REF14048
       H-REF14049 LDH-REF14050 ILOZ-REF14051 IHIZ-REF14052 Z-REF14053
       LDZ-REF14054 V-REF14055 LDV-REF14056 U-REF14057 LDU-REF14058 NV-REF14059
       WV-REF14060 LDWV-REF14061 NH-REF14062 WH-REF14063 LDWH-REF14064))))

(CFFI:DEFCFUN ("slaqsb_" %%SLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %SLAQSB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14066 ':INT32) (KD-REF14067 ':INT32)
                              (LDAB-REF14069 ':INT32) (SCOND-REF14071 ':FLOAT)
                              (AMAX-REF14072 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14066 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF14067 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF14069 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF14071 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF14072 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF14068 AB) (S-REF14070 S))
      (%%SLAQSB UPLO N-REF14066 KD-REF14067 AB-REF14068 LDAB-REF14069
       S-REF14070 SCOND-REF14071 AMAX-REF14072 EQUED))))

(CFFI:DEFCFUN ("slaqsp_" %%SLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %SLAQSP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14075 ':INT32) (SCOND-REF14078 ':FLOAT)
                              (AMAX-REF14079 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14075 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF14078 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF14079 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14076 AP) (S-REF14077 S))
      (%%SLAQSP UPLO N-REF14075 AP-REF14076 S-REF14077 SCOND-REF14078
       AMAX-REF14079 EQUED))))

(CFFI:DEFCFUN ("slaqsy_" %%SLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %SLAQSY (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14082 ':INT32) (LDA-REF14084 ':INT32)
                              (SCOND-REF14086 ':FLOAT) (AMAX-REF14087 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14082 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14084 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF14086 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF14087 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14083 A) (S-REF14085 S))
      (%%SLAQSY UPLO N-REF14082 A-REF14083 LDA-REF14084 S-REF14085
       SCOND-REF14086 AMAX-REF14087 EQUED))))

(CFFI:DEFCFUN ("slaqtr_" %%SLAQTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (LTRAN :POINTER)
  (LREAL :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (B :POINTER)
  (W :POINTER)
  (SCALE :POINTER)
  (X :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAQTR (LTRAN LREAL N T LDT B W SCALE X WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQTR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRAN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LREAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT W)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRAN-REF14089 ':INT32) (LREAL-REF14090 ':INT32)
                              (N-REF14091 ':INT32) (LDT-REF14093 ':INT32)
                              (W-REF14095 ':FLOAT) (SCALE-REF14096 ':FLOAT)
                              (INFO-REF14099 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRAN-REF14089 :INT32) LTRAN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LREAL-REF14090 :INT32) LREAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14091 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14093 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF W-REF14095 :FLOAT) W)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14096 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14099 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF14092 T) (B-REF14094 B)
                                            (X-REF14097 X) (WORK-REF14098 WORK))
      (%%SLAQTR LTRAN-REF14089 LREAL-REF14090 N-REF14091 T-REF14092
       LDT-REF14093 B-REF14094 W-REF14095 SCALE-REF14096 X-REF14097
       WORK-REF14098 INFO-REF14099))))

(CFFI:DEFCFUN ("slar1v_" %%SLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (B1 :POINTER)
  (BN :POINTER)
  (LAMBDA :POINTER)
  (D :POINTER)
  (L :POINTER)
  (LD :POINTER)
  (LLD :POINTER)
  (PIVMIN :POINTER)
  (GAPTOL :POINTER)
  (Z :POINTER)
  (WANTNC :POINTER)
  (NEGCNT :POINTER)
  (ZTZ :POINTER)
  (MINGMA :POINTER)
  (R :POINTER)
  (ISUPPZ :POINTER)
  (NRMINV :POINTER)
  (RESID :POINTER)
  (RQCORR :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLAR1V
                   (N B1 BN LAMBDA D L LD LLD PIVMIN GAPTOL Z WANTNC NEGCNT ZTZ
                    MINGMA R ISUPPZ NRMINV RESID RQCORR WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAR1V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) B1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) BN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT LAMBDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT GAPTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTNC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NEGCNT)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ZTZ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT MINGMA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT NRMINV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RESID)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RQCORR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14100 ':INT32) (B1-REF14101 ':INT32)
                              (BN-REF14102 ':INT32) (LAMBDA-REF14103 ':FLOAT)
                              (PIVMIN-REF14108 ':FLOAT)
                              (GAPTOL-REF14109 ':FLOAT)
                              (WANTNC-REF14111 ':INT32)
                              (NEGCNT-REF14112 ':INT32) (ZTZ-REF14113 ':FLOAT)
                              (MINGMA-REF14114 ':FLOAT) (R-REF14115 ':INT32)
                              (NRMINV-REF14117 ':FLOAT)
                              (RESID-REF14118 ':FLOAT)
                              (RQCORR-REF14119 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14100 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF14101 :INT32) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF14102 :INT32) BN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF14103 :FLOAT) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14108 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF14109 :FLOAT) GAPTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF14111 :INT32) WANTNC)
    (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF14112 :INT32) NEGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF14113 :FLOAT) ZTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF14114 :FLOAT) MINGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF14115 :INT32) R)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF14117 :FLOAT) NRMINV)
    (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF14118 :FLOAT) RESID)
    (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF14119 :FLOAT) RQCORR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14104 D) (L-REF14105 L)
                                            (LD-REF14106 LD) (LLD-REF14107 LLD)
                                            (Z-REF14110 Z)
                                            (ISUPPZ-REF14116 ISUPPZ)
                                            (WORK-REF14120 WORK))
      (%%SLAR1V N-REF14100 B1-REF14101 BN-REF14102 LAMBDA-REF14103 D-REF14104
       L-REF14105 LD-REF14106 LLD-REF14107 PIVMIN-REF14108 GAPTOL-REF14109
       Z-REF14110 WANTNC-REF14111 NEGCNT-REF14112 ZTZ-REF14113 MINGMA-REF14114
       R-REF14115 ISUPPZ-REF14116 NRMINV-REF14117 RESID-REF14118
       RQCORR-REF14119 WORK-REF14120))))

(CFFI:DEFCFUN ("slar2v_" %%SLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (Z :POINTER)
  (INCX :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %SLAR2V (N X Y Z INCX C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAR2V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14121 ':INT32) (INCX-REF14125 ':INT32)
                              (INCC-REF14128 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14121 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14125 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF14128 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14122 X) (Y-REF14123 Y)
                                            (Z-REF14124 Z) (C-REF14126 C)
                                            (S-REF14127 S))
      (%%SLAR2V N-REF14121 X-REF14122 Y-REF14123 Z-REF14124 INCX-REF14125
       C-REF14126 S-REF14127 INCC-REF14128))))

(CFFI:DEFCFUN ("slarf_" %%SLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLARF (SIDE M N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14130 ':INT32) (N-REF14131 ':INT32)
                              (INCV-REF14133 ':INT32) (TAU-REF14134 ':FLOAT)
                              (LDC-REF14136 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14130 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14131 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF14133 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14134 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14136 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14132 V) (C-REF14135 C)
                                            (WORK-REF14137 WORK))
      (%%SLARF SIDE M-REF14130 N-REF14131 V-REF14132 INCV-REF14133 TAU-REF14134
       C-REF14135 LDC-REF14136 WORK-REF14137))))

(CFFI:DEFCFUN ("slarfb_" %%SLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %SLARFB
                   (SIDE TRANS DIRECT STOREV M N K V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14142 ':INT32) (N-REF14143 ':INT32)
                              (K-REF14144 ':INT32) (LDV-REF14146 ':INT32)
                              (LDT-REF14148 ':INT32) (LDC-REF14150 ':INT32)
                              (LDWORK-REF14152 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14142 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14143 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14144 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14146 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14148 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14150 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF14152 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14145 V) (T-REF14147 T)
                                            (C-REF14149 C) (WORK-REF14151 WORK))
      (%%SLARFB SIDE TRANS DIRECT STOREV M-REF14142 N-REF14143 K-REF14144
       V-REF14145 LDV-REF14146 T-REF14147 LDT-REF14148 C-REF14149 LDC-REF14150
       WORK-REF14151 LDWORK-REF14152))))

(CFFI:DEFCFUN ("slarfg_" %%SLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %SLARFG (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14153 ':INT32) (ALPHA-REF14154 ':FLOAT)
                              (INCX-REF14156 ':INT32) (TAU-REF14157 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14153 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14154 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14156 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14157 :FLOAT) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14155 X))
      (%%SLARFG N-REF14153 ALPHA-REF14154 X-REF14155 INCX-REF14156
       TAU-REF14157))))

(CFFI:DEFCFUN ("slarfgp_" %%SLARFGP :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %SLARFGP (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFGP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14158 ':INT32) (ALPHA-REF14159 ':FLOAT)
                              (INCX-REF14161 ':INT32) (TAU-REF14162 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14158 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14159 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14161 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14162 :FLOAT) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14160 X))
      (%%SLARFGP N-REF14158 ALPHA-REF14159 X-REF14160 INCX-REF14161
       TAU-REF14162))))

(CFFI:DEFCFUN ("slarft_" %%SLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %SLARFT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14165 ':INT32) (K-REF14166 ':INT32)
                              (LDV-REF14168 ':INT32) (LDT-REF14171 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14165 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14166 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14168 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14171 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14167 V) (TAU-REF14169 TAU)
                                            (T-REF14170 T))
      (%%SLARFT DIRECT STOREV N-REF14165 K-REF14166 V-REF14167 LDV-REF14168
       TAU-REF14169 T-REF14170 LDT-REF14171))))

(CFFI:DEFCFUN ("slarfx_" %%SLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLARFX (SIDE M N V TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14173 ':INT32) (N-REF14174 ':INT32)
                              (TAU-REF14176 ':FLOAT) (LDC-REF14178 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14173 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14174 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14176 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14178 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14175 V) (C-REF14177 C)
                                            (WORK-REF14179 WORK))
      (%%SLARFX SIDE M-REF14173 N-REF14174 V-REF14175 TAU-REF14176 C-REF14177
       LDC-REF14178 WORK-REF14179))))

(CFFI:DEFCFUN ("slarfy_" %%SLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLARFY (UPLO N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14181 ':INT32) (INCV-REF14183 ':INT32)
                              (TAU-REF14184 ':FLOAT) (LDC-REF14186 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14181 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF14183 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14184 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14186 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14182 V) (C-REF14185 C)
                                            (WORK-REF14187 WORK))
      (%%SLARFY UPLO N-REF14181 V-REF14182 INCV-REF14183 TAU-REF14184
       C-REF14185 LDC-REF14186 WORK-REF14187))))

(CFFI:DEFCFUN ("slargv_" %%SLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %SLARGV (N X INCX Y INCY C INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14188 ':INT32) (INCX-REF14190 ':INT32)
                              (INCY-REF14192 ':INT32) (INCC-REF14194 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14188 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14190 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF14192 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF14194 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14189 X) (Y-REF14191 Y)
                                            (C-REF14193 C))
      (%%SLARGV N-REF14188 X-REF14189 INCX-REF14190 Y-REF14191 INCY-REF14192
       C-REF14193 INCC-REF14194))))

(CFFI:DEFCFUN ("slarnv_" %%SLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IDIST :POINTER)
  (ISEED :POINTER)
  (N :POINTER)
  (X :POINTER))

(COMMON-LISP:DEFUN %SLARNV (IDIST ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARNV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IDIST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISEED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X))
  (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF14195 ':INT32) (N-REF14197 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF14195 :INT32) IDIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14197 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF14196 ISEED)
                                            (X-REF14198 X))
      (%%SLARNV IDIST-REF14195 ISEED-REF14196 N-REF14197 X-REF14198))))

(CFFI:DEFCFUN ("slarra_" %%SLARRA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (SPLTOL :POINTER)
  (TNRM :POINTER)
  (NSPLIT :POINTER)
  (ISPLIT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRA (N D E E2 SPLTOL TNRM NSPLIT ISPLIT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPLTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TNRM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14199 ':INT32) (SPLTOL-REF14203 ':FLOAT)
                              (TNRM-REF14204 ':FLOAT) (NSPLIT-REF14205 ':INT32)
                              (INFO-REF14207 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14199 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF14203 :FLOAT) SPLTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF TNRM-REF14204 :FLOAT) TNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF14205 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14207 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14200 D) (E-REF14201 E)
                                            (E2-REF14202 E2)
                                            (ISPLIT-REF14206 ISPLIT))
      (%%SLARRA N-REF14199 D-REF14200 E-REF14201 E2-REF14202 SPLTOL-REF14203
       TNRM-REF14204 NSPLIT-REF14205 ISPLIT-REF14206 INFO-REF14207))))

(CFFI:DEFCFUN ("slarrb_" %%SLARRB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (LLD :POINTER)
  (IFIRST :POINTER)
  (ILAST :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (OFFSET :POINTER)
  (W :POINTER)
  (WGAP :POINTER)
  (WERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (PIVMIN :POINTER)
  (SPDIAM :POINTER)
  (TWIST :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRB
                   (N D LLD IFIRST ILAST RTOL1 RTOL2 OFFSET W WGAP WERR WORK
                    IWORK PIVMIN SPDIAM TWIST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFIRST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILAST)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPDIAM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TWIST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14208 ':INT32) (IFIRST-REF14211 ':INT32)
                              (ILAST-REF14212 ':INT32) (RTOL1-REF14213 ':FLOAT)
                              (RTOL2-REF14214 ':FLOAT)
                              (OFFSET-REF14215 ':INT32)
                              (PIVMIN-REF14221 ':FLOAT)
                              (SPDIAM-REF14222 ':FLOAT)
                              (TWIST-REF14223 ':INT32) (INFO-REF14224 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14208 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF14211 :INT32) IFIRST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF14212 :INT32) ILAST)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF14213 :FLOAT) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF14214 :FLOAT) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF14215 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14221 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF14222 :FLOAT) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF TWIST-REF14223 :INT32) TWIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14224 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14209 D) (LLD-REF14210 LLD)
                                            (W-REF14216 W) (WGAP-REF14217 WGAP)
                                            (WERR-REF14218 WERR)
                                            (WORK-REF14219 WORK)
                                            (IWORK-REF14220 IWORK))
      (%%SLARRB N-REF14208 D-REF14209 LLD-REF14210 IFIRST-REF14211
       ILAST-REF14212 RTOL1-REF14213 RTOL2-REF14214 OFFSET-REF14215 W-REF14216
       WGAP-REF14217 WERR-REF14218 WORK-REF14219 IWORK-REF14220 PIVMIN-REF14221
       SPDIAM-REF14222 TWIST-REF14223 INFO-REF14224))))

(CFFI:DEFCFUN ("slarrc_" %%SLARRC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBT :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (D :POINTER)
  (E :POINTER)
  (PIVMIN :POINTER)
  (EIGCNT :POINTER)
  (LCNT :POINTER)
  (RCNT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRC (JOBT N VL VU D E PIVMIN EIGCNT LCNT RCNT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) EIGCNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LCNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RCNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14226 ':INT32) (VL-REF14227 ':FLOAT)
                              (VU-REF14228 ':FLOAT) (PIVMIN-REF14231 ':FLOAT)
                              (EIGCNT-REF14232 ':INT32) (LCNT-REF14233 ':INT32)
                              (RCNT-REF14234 ':INT32) (INFO-REF14235 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14226 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14227 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14228 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14231 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF EIGCNT-REF14232 :INT32) EIGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LCNT-REF14233 :INT32) LCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCNT-REF14234 :INT32) RCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14235 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14229 D) (E-REF14230 E))
      (%%SLARRC JOBT N-REF14226 VL-REF14227 VU-REF14228 D-REF14229 E-REF14230
       PIVMIN-REF14231 EIGCNT-REF14232 LCNT-REF14233 RCNT-REF14234
       INFO-REF14235))))

(CFFI:DEFCFUN ("slarrd_" %%SLARRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (RANGE :STRING)
  (ORDER :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (GERS :POINTER)
  (RELTOL :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (PIVMIN :POINTER)
  (NSPLIT :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WL :POINTER)
  (WU :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRD
                   (RANGE ORDER N VL VU IL IU GERS RELTOL D E E2 PIVMIN NSPLIT
                    ISPLIT M W WERR WL WU IBLOCK INDEXW WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING ORDER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RELTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14238 ':INT32) (VL-REF14239 ':FLOAT)
                              (VU-REF14240 ':FLOAT) (IL-REF14241 ':INT32)
                              (IU-REF14242 ':INT32) (RELTOL-REF14244 ':FLOAT)
                              (PIVMIN-REF14248 ':FLOAT)
                              (NSPLIT-REF14249 ':INT32) (M-REF14251 ':INT32)
                              (WL-REF14254 ':FLOAT) (WU-REF14255 ':FLOAT)
                              (INFO-REF14260 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14238 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14239 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14240 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF14241 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF14242 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF14244 :FLOAT) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14248 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF14249 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14251 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF WL-REF14254 :FLOAT) WL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WU-REF14255 :FLOAT) WU)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14260 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((GERS-REF14243 GERS) (D-REF14245 D)
                                            (E-REF14246 E) (E2-REF14247 E2)
                                            (ISPLIT-REF14250 ISPLIT)
                                            (W-REF14252 W) (WERR-REF14253 WERR)
                                            (IBLOCK-REF14256 IBLOCK)
                                            (INDEXW-REF14257 INDEXW)
                                            (WORK-REF14258 WORK)
                                            (IWORK-REF14259 IWORK))
      (%%SLARRD RANGE ORDER N-REF14238 VL-REF14239 VU-REF14240 IL-REF14241
       IU-REF14242 GERS-REF14243 RELTOL-REF14244 D-REF14245 E-REF14246
       E2-REF14247 PIVMIN-REF14248 NSPLIT-REF14249 ISPLIT-REF14250 M-REF14251
       W-REF14252 WERR-REF14253 WL-REF14254 WU-REF14255 IBLOCK-REF14256
       INDEXW-REF14257 WORK-REF14258 IWORK-REF14259 INFO-REF14260))))

(CFFI:DEFCFUN ("slarre_" %%SLARRE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (RANGE :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (SPLTOL :POINTER)
  (NSPLIT :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WGAP :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (GERS :POINTER)
  (PIVMIN :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRE
                   (RANGE N VL VU IL IU D E E2 RTOL1 RTOL2 SPLTOL NSPLIT ISPLIT
                    M W WERR WGAP IBLOCK INDEXW GERS PIVMIN WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPLTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14262 ':INT32) (VL-REF14263 ':FLOAT)
                              (VU-REF14264 ':FLOAT) (IL-REF14265 ':INT32)
                              (IU-REF14266 ':INT32) (RTOL1-REF14270 ':FLOAT)
                              (RTOL2-REF14271 ':FLOAT)
                              (SPLTOL-REF14272 ':FLOAT)
                              (NSPLIT-REF14273 ':INT32) (M-REF14275 ':INT32)
                              (PIVMIN-REF14282 ':FLOAT) (INFO-REF14285 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14262 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14263 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14264 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF14265 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF14266 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF14270 :FLOAT) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF14271 :FLOAT) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF14272 :FLOAT) SPLTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF14273 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14275 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14282 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14285 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14267 D) (E-REF14268 E)
                                            (E2-REF14269 E2)
                                            (ISPLIT-REF14274 ISPLIT)
                                            (W-REF14276 W) (WERR-REF14277 WERR)
                                            (WGAP-REF14278 WGAP)
                                            (IBLOCK-REF14279 IBLOCK)
                                            (INDEXW-REF14280 INDEXW)
                                            (GERS-REF14281 GERS)
                                            (WORK-REF14283 WORK)
                                            (IWORK-REF14284 IWORK))
      (%%SLARRE RANGE N-REF14262 VL-REF14263 VU-REF14264 IL-REF14265
       IU-REF14266 D-REF14267 E-REF14268 E2-REF14269 RTOL1-REF14270
       RTOL2-REF14271 SPLTOL-REF14272 NSPLIT-REF14273 ISPLIT-REF14274
       M-REF14275 W-REF14276 WERR-REF14277 WGAP-REF14278 IBLOCK-REF14279
       INDEXW-REF14280 GERS-REF14281 PIVMIN-REF14282 WORK-REF14283
       IWORK-REF14284 INFO-REF14285))))

(CFFI:DEFCFUN ("slarrf_" %%SLARRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (L :POINTER)
  (LD :POINTER)
  (CLSTRT :POINTER)
  (CLEND :POINTER)
  (W :POINTER)
  (WGAP :POINTER)
  (WERR :POINTER)
  (SPDIAM :POINTER)
  (CLGAPL :POINTER)
  (CLGAPR :POINTER)
  (PIVMIN :POINTER)
  (SIGMA :POINTER)
  (DPLUS :POINTER)
  (LPLUS :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRF
                   (N D L LD CLSTRT CLEND W WGAP WERR SPDIAM CLGAPL CLGAPR
                    PIVMIN SIGMA DPLUS LPLUS WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CLSTRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CLEND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPDIAM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CLGAPL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CLGAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DPLUS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LPLUS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14286 ':INT32) (CLSTRT-REF14290 ':INT32)
                              (CLEND-REF14291 ':INT32)
                              (SPDIAM-REF14295 ':FLOAT)
                              (CLGAPL-REF14296 ':FLOAT)
                              (CLGAPR-REF14297 ':FLOAT)
                              (PIVMIN-REF14298 ':FLOAT)
                              (SIGMA-REF14299 ':FLOAT) (INFO-REF14303 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14286 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLSTRT-REF14290 :INT32) CLSTRT)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLEND-REF14291 :INT32) CLEND)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF14295 :FLOAT) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPL-REF14296 :FLOAT) CLGAPL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPR-REF14297 :FLOAT) CLGAPR)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14298 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14299 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14303 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14287 D) (L-REF14288 L)
                                            (LD-REF14289 LD) (W-REF14292 W)
                                            (WGAP-REF14293 WGAP)
                                            (WERR-REF14294 WERR)
                                            (DPLUS-REF14300 DPLUS)
                                            (LPLUS-REF14301 LPLUS)
                                            (WORK-REF14302 WORK))
      (%%SLARRF N-REF14286 D-REF14287 L-REF14288 LD-REF14289 CLSTRT-REF14290
       CLEND-REF14291 W-REF14292 WGAP-REF14293 WERR-REF14294 SPDIAM-REF14295
       CLGAPL-REF14296 CLGAPR-REF14297 PIVMIN-REF14298 SIGMA-REF14299
       DPLUS-REF14300 LPLUS-REF14301 WORK-REF14302 INFO-REF14303))))

(CFFI:DEFCFUN ("slarrj_" %%SLARRJ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E2 :POINTER)
  (IFIRST :POINTER)
  (ILAST :POINTER)
  (RTOL :POINTER)
  (OFFSET :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (PIVMIN :POINTER)
  (SPDIAM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRJ
                   (N D E2 IFIRST ILAST RTOL OFFSET W WERR WORK IWORK PIVMIN
                    SPDIAM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRJ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFIRST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILAST)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPDIAM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14304 ':INT32) (IFIRST-REF14307 ':INT32)
                              (ILAST-REF14308 ':INT32) (RTOL-REF14309 ':FLOAT)
                              (OFFSET-REF14310 ':INT32)
                              (PIVMIN-REF14315 ':FLOAT)
                              (SPDIAM-REF14316 ':FLOAT) (INFO-REF14317 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14304 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF14307 :INT32) IFIRST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF14308 :INT32) ILAST)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL-REF14309 :FLOAT) RTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF14310 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14315 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF14316 :FLOAT) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14317 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14305 D) (E2-REF14306 E2)
                                            (W-REF14311 W) (WERR-REF14312 WERR)
                                            (WORK-REF14313 WORK)
                                            (IWORK-REF14314 IWORK))
      (%%SLARRJ N-REF14304 D-REF14305 E2-REF14306 IFIRST-REF14307
       ILAST-REF14308 RTOL-REF14309 OFFSET-REF14310 W-REF14311 WERR-REF14312
       WORK-REF14313 IWORK-REF14314 PIVMIN-REF14315 SPDIAM-REF14316
       INFO-REF14317))))

(CFFI:DEFCFUN ("slarrk_" %%SLARRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (IW :POINTER)
  (GL :POINTER)
  (GU :POINTER)
  (D :POINTER)
  (E2 :POINTER)
  (PIVMIN :POINTER)
  (RELTOL :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRK (N IW GL GU D E2 PIVMIN RELTOL W WERR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IW)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT GL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT GU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RELTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT W)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14318 ':INT32) (IW-REF14319 ':INT32)
                              (GL-REF14320 ':FLOAT) (GU-REF14321 ':FLOAT)
                              (PIVMIN-REF14324 ':FLOAT)
                              (RELTOL-REF14325 ':FLOAT) (W-REF14326 ':FLOAT)
                              (WERR-REF14327 ':FLOAT) (INFO-REF14328 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14318 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IW-REF14319 :INT32) IW)
    (COMMON-LISP:SETF (CFFI:MEM-REF GL-REF14320 :FLOAT) GL)
    (COMMON-LISP:SETF (CFFI:MEM-REF GU-REF14321 :FLOAT) GU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14324 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF14325 :FLOAT) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF W-REF14326 :FLOAT) W)
    (COMMON-LISP:SETF (CFFI:MEM-REF WERR-REF14327 :FLOAT) WERR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14328 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14322 D) (E2-REF14323 E2))
      (%%SLARRK N-REF14318 IW-REF14319 GL-REF14320 GU-REF14321 D-REF14322
       E2-REF14323 PIVMIN-REF14324 RELTOL-REF14325 W-REF14326 WERR-REF14327
       INFO-REF14328))))

(CFFI:DEFCFUN ("slarrr_" %%SLARRR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRR (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14329 ':INT32) (INFO-REF14332 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14329 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14332 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14330 D) (E-REF14331 E))
      (%%SLARRR N-REF14329 D-REF14330 E-REF14331 INFO-REF14332))))

(CFFI:DEFCFUN ("slarrv_" %%SLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (D :POINTER)
  (L :POINTER)
  (PIVMIN :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (DOL :POINTER)
  (DOU :POINTER)
  (MINRGP :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WGAP :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (GERS :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRV
                   (N VL VU D L PIVMIN ISPLIT M DOL DOU MINRGP RTOL1 RTOL2 W
                    WERR WGAP IBLOCK INDEXW GERS Z LDZ ISUPPZ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) L)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT MINRGP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14333 ':INT32) (VL-REF14334 ':FLOAT)
                              (VU-REF14335 ':FLOAT) (PIVMIN-REF14338 ':FLOAT)
                              (M-REF14340 ':INT32) (DOL-REF14341 ':INT32)
                              (DOU-REF14342 ':INT32) (MINRGP-REF14343 ':FLOAT)
                              (RTOL1-REF14344 ':FLOAT) (RTOL2-REF14345 ':FLOAT)
                              (LDZ-REF14353 ':INT32) (INFO-REF14357 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14333 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14334 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14335 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14338 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14340 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF14341 :INT32) DOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF14342 :INT32) DOU)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF14343 :FLOAT) MINRGP)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF14344 :FLOAT) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF14345 :FLOAT) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14353 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14357 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14336 D) (L-REF14337 L)
                                            (ISPLIT-REF14339 ISPLIT)
                                            (W-REF14346 W) (WERR-REF14347 WERR)
                                            (WGAP-REF14348 WGAP)
                                            (IBLOCK-REF14349 IBLOCK)
                                            (INDEXW-REF14350 INDEXW)
                                            (GERS-REF14351 GERS) (Z-REF14352 Z)
                                            (ISUPPZ-REF14354 ISUPPZ)
                                            (WORK-REF14355 WORK)
                                            (IWORK-REF14356 IWORK))
      (%%SLARRV N-REF14333 VL-REF14334 VU-REF14335 D-REF14336 L-REF14337
       PIVMIN-REF14338 ISPLIT-REF14339 M-REF14340 DOL-REF14341 DOU-REF14342
       MINRGP-REF14343 RTOL1-REF14344 RTOL2-REF14345 W-REF14346 WERR-REF14347
       WGAP-REF14348 IBLOCK-REF14349 INDEXW-REF14350 GERS-REF14351 Z-REF14352
       LDZ-REF14353 ISUPPZ-REF14354 WORK-REF14355 IWORK-REF14356
       INFO-REF14357))))

(CFFI:DEFCFUN ("slarscl2_" %%SLARSCL2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %SLARSCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARSCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14358 ':INT32) (N-REF14359 ':INT32)
                              (LDX-REF14362 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14358 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14359 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14362 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14360 D) (X-REF14361 X))
      (%%SLARSCL2 M-REF14358 N-REF14359 D-REF14360 X-REF14361 LDX-REF14362))))

(CFFI:DEFCFUN ("slartg_" %%SLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (CS :POINTER)
  (SN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %SLARTG (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARTG)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14363 ':FLOAT) (G-REF14364 ':FLOAT)
                              (CS-REF14365 ':FLOAT) (SN-REF14366 ':FLOAT)
                              (R-REF14367 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14363 :FLOAT) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14364 :FLOAT) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF14365 :FLOAT) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF14366 :FLOAT) SN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF14367 :FLOAT) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLARTG F-REF14363 G-REF14364 CS-REF14365 SN-REF14366 R-REF14367))))

(CFFI:DEFCFUN ("slartgp_" %%SLARTGP :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (CS :POINTER)
  (SN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %SLARTGP (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARTGP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14368 ':FLOAT) (G-REF14369 ':FLOAT)
                              (CS-REF14370 ':FLOAT) (SN-REF14371 ':FLOAT)
                              (R-REF14372 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14368 :FLOAT) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14369 :FLOAT) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF14370 :FLOAT) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF14371 :FLOAT) SN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF14372 :FLOAT) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLARTGP F-REF14368 G-REF14369 CS-REF14370 SN-REF14371 R-REF14372))))

(CFFI:DEFCFUN ("slartgs_" %%SLARTGS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (X :POINTER)
  (Y :POINTER)
  (SIGMA :POINTER)
  (CS :POINTER)
  (SN :POINTER))

(COMMON-LISP:DEFUN %SLARTGS (X Y SIGMA CS SN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARTGS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Y)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF14373 ':FLOAT) (Y-REF14374 ':FLOAT)
                              (SIGMA-REF14375 ':FLOAT) (CS-REF14376 ':FLOAT)
                              (SN-REF14377 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF14373 :FLOAT) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF14374 :FLOAT) Y)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14375 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF14376 :FLOAT) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF14377 :FLOAT) SN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLARTGS X-REF14373 Y-REF14374 SIGMA-REF14375 CS-REF14376
       SN-REF14377))))

(CFFI:DEFCFUN ("slartv_" %%SLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %SLARTV (N X INCX Y INCY C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14378 ':INT32) (INCX-REF14380 ':INT32)
                              (INCY-REF14382 ':INT32) (INCC-REF14385 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14378 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14380 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF14382 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF14385 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14379 X) (Y-REF14381 Y)
                                            (C-REF14383 C) (S-REF14384 S))
      (%%SLARTV N-REF14378 X-REF14379 INCX-REF14380 Y-REF14381 INCY-REF14382
       C-REF14383 S-REF14384 INCC-REF14385))))

(CFFI:DEFCFUN ("slaruv_" %%SLARUV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ISEED :POINTER)
  (N :POINTER)
  (X :POINTER))

(COMMON-LISP:DEFUN %SLARUV (ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARUV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISEED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14387 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14387 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF14386 ISEED)
                                            (X-REF14388 X))
      (%%SLARUV ISEED-REF14386 N-REF14387 X-REF14388))))

(CFFI:DEFCFUN ("slarz_" %%SLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLARZ (SIDE M N L V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14390 ':INT32) (N-REF14391 ':INT32)
                              (L-REF14392 ':INT32) (INCV-REF14394 ':INT32)
                              (TAU-REF14395 ':FLOAT) (LDC-REF14397 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14390 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14391 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF14392 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF14394 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14395 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14397 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14393 V) (C-REF14396 C)
                                            (WORK-REF14398 WORK))
      (%%SLARZ SIDE M-REF14390 N-REF14391 L-REF14392 V-REF14393 INCV-REF14394
       TAU-REF14395 C-REF14396 LDC-REF14397 WORK-REF14398))))

(CFFI:DEFCFUN ("slarzb_" %%SLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %SLARZB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARZB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14403 ':INT32) (N-REF14404 ':INT32)
                              (K-REF14405 ':INT32) (L-REF14406 ':INT32)
                              (LDV-REF14408 ':INT32) (LDT-REF14410 ':INT32)
                              (LDC-REF14412 ':INT32) (LDWORK-REF14414 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14403 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14404 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14405 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF14406 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14408 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14410 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14412 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF14414 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14407 V) (T-REF14409 T)
                                            (C-REF14411 C) (WORK-REF14413 WORK))
      (%%SLARZB SIDE TRANS DIRECT STOREV M-REF14403 N-REF14404 K-REF14405
       L-REF14406 V-REF14407 LDV-REF14408 T-REF14409 LDT-REF14410 C-REF14411
       LDC-REF14412 WORK-REF14413 LDWORK-REF14414))))

(CFFI:DEFCFUN ("slarzt_" %%SLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %SLARZT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARZT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14417 ':INT32) (K-REF14418 ':INT32)
                              (LDV-REF14420 ':INT32) (LDT-REF14423 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14417 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14418 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14420 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14423 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14419 V) (TAU-REF14421 TAU)
                                            (T-REF14422 T))
      (%%SLARZT DIRECT STOREV N-REF14417 K-REF14418 V-REF14419 LDV-REF14420
       TAU-REF14421 T-REF14422 LDT-REF14423))))

(CFFI:DEFCFUN ("slas2_" %%SLAS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (H :POINTER)
  (SSMIN :POINTER)
  (SSMAX :POINTER))

(COMMON-LISP:DEFUN %SLAS2 (F G H SSMIN SSMAX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAS2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT H)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMAX))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14424 ':FLOAT) (G-REF14425 ':FLOAT)
                              (H-REF14426 ':FLOAT) (SSMIN-REF14427 ':FLOAT)
                              (SSMAX-REF14428 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14424 :FLOAT) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14425 :FLOAT) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF H-REF14426 :FLOAT) H)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF14427 :FLOAT) SSMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF14428 :FLOAT) SSMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAS2 F-REF14424 G-REF14425 H-REF14426 SSMIN-REF14427
       SSMAX-REF14428))))

(CFFI:DEFCFUN ("slascl_" %%SLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TYPE :STRING)
  (KL :POINTER)
  (KU :POINTER)
  (CFROM :POINTER)
  (CTO :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASCL (TYPE KL KU CFROM CTO M N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASCL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CFROM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CTO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF14430 ':INT32) (KU-REF14431 ':INT32)
                              (CFROM-REF14432 ':FLOAT) (CTO-REF14433 ':FLOAT)
                              (M-REF14434 ':INT32) (N-REF14435 ':INT32)
                              (LDA-REF14437 ':INT32) (INFO-REF14438 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF14430 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF14431 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF14432 :FLOAT) CFROM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF14433 :FLOAT) CTO)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14434 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14435 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14437 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14438 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14436 A))
      (%%SLASCL TYPE KL-REF14430 KU-REF14431 CFROM-REF14432 CTO-REF14433
       M-REF14434 N-REF14435 A-REF14436 LDA-REF14437 INFO-REF14438))))

(CFFI:DEFCFUN ("slascl2_" %%SLASCL2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %SLASCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14439 ':INT32) (N-REF14440 ':INT32)
                              (LDX-REF14443 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14439 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14440 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14443 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14441 D) (X-REF14442 X))
      (%%SLASCL2 M-REF14439 N-REF14440 D-REF14441 X-REF14442 LDX-REF14443))))

(CFFI:DEFCFUN ("slasd0_" %%SLASD0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (E :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (SMLSIZ :POINTER)
  (IWORK :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD0 (N SQRE D E U LDU VT LDVT SMLSIZ IWORK WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14444 ':INT32) (SQRE-REF14445 ':INT32)
                              (LDU-REF14449 ':INT32) (LDVT-REF14451 ':INT32)
                              (SMLSIZ-REF14452 ':INT32) (INFO-REF14455 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14444 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14445 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14449 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14451 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF14452 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14455 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14446 D) (E-REF14447 E)
                                            (U-REF14448 U) (VT-REF14450 VT)
                                            (IWORK-REF14453 IWORK)
                                            (WORK-REF14454 WORK))
      (%%SLASD0 N-REF14444 SQRE-REF14445 D-REF14446 E-REF14447 U-REF14448
       LDU-REF14449 VT-REF14450 LDVT-REF14451 SMLSIZ-REF14452 IWORK-REF14453
       WORK-REF14454 INFO-REF14455))))

(CFFI:DEFCFUN ("slasd1_" %%SLASD1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (IDXQ :POINTER)
  (IWORK :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD1
                   (NL NR SQRE D ALPHA BETA U LDU VT LDVT IDXQ IWORK WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF14456 ':INT32) (NR-REF14457 ':INT32)
                              (SQRE-REF14458 ':INT32) (ALPHA-REF14460 ':FLOAT)
                              (BETA-REF14461 ':FLOAT) (LDU-REF14463 ':INT32)
                              (LDVT-REF14465 ':INT32) (INFO-REF14469 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14456 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14457 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14458 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14460 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14461 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14463 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14465 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14469 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14459 D) (U-REF14462 U)
                                            (VT-REF14464 VT)
                                            (IDXQ-REF14466 IDXQ)
                                            (IWORK-REF14467 IWORK)
                                            (WORK-REF14468 WORK))
      (%%SLASD1 NL-REF14456 NR-REF14457 SQRE-REF14458 D-REF14459 ALPHA-REF14460
       BETA-REF14461 U-REF14462 LDU-REF14463 VT-REF14464 LDVT-REF14465
       IDXQ-REF14466 IWORK-REF14467 WORK-REF14468 INFO-REF14469))))

(CFFI:DEFCFUN ("slasd2_" %%SLASD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (DSIGMA :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (VT2 :POINTER)
  (LDVT2 :POINTER)
  (IDXP :POINTER)
  (IDX :POINTER)
  (IDXC :POINTER)
  (IDXQ :POINTER)
  (COLTYP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD2
                   (NL NR SQRE K D Z ALPHA BETA U LDU VT LDVT DSIGMA U2 LDU2
                    VT2 LDVT2 IDXP IDX IDXC IDXQ COLTYP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        COLTYP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF14470 ':INT32) (NR-REF14471 ':INT32)
                              (SQRE-REF14472 ':INT32) (K-REF14473 ':INT32)
                              (ALPHA-REF14476 ':FLOAT) (BETA-REF14477 ':FLOAT)
                              (LDU-REF14479 ':INT32) (LDVT-REF14481 ':INT32)
                              (LDU2-REF14484 ':INT32) (LDVT2-REF14486 ':INT32)
                              (INFO-REF14492 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14470 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14471 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14472 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14473 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14476 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14477 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14479 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14481 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF14484 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF14486 :INT32) LDVT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14492 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14474 D) (Z-REF14475 Z)
                                            (U-REF14478 U) (VT-REF14480 VT)
                                            (DSIGMA-REF14482 DSIGMA)
                                            (U2-REF14483 U2) (VT2-REF14485 VT2)
                                            (IDXP-REF14487 IDXP)
                                            (IDX-REF14488 IDX)
                                            (IDXC-REF14489 IDXC)
                                            (IDXQ-REF14490 IDXQ)
                                            (COLTYP-REF14491 COLTYP))
      (%%SLASD2 NL-REF14470 NR-REF14471 SQRE-REF14472 K-REF14473 D-REF14474
       Z-REF14475 ALPHA-REF14476 BETA-REF14477 U-REF14478 LDU-REF14479
       VT-REF14480 LDVT-REF14481 DSIGMA-REF14482 U2-REF14483 LDU2-REF14484
       VT2-REF14485 LDVT2-REF14486 IDXP-REF14487 IDX-REF14488 IDXC-REF14489
       IDXQ-REF14490 COLTYP-REF14491 INFO-REF14492))))

(CFFI:DEFCFUN ("slasd3_" %%SLASD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (DSIGMA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (VT2 :POINTER)
  (LDVT2 :POINTER)
  (IDXC :POINTER)
  (CTOT :POINTER)
  (Z :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD3
                   (NL NR SQRE K D Q LDQ DSIGMA U LDU U2 LDU2 VT LDVT VT2 LDVT2
                    IDXC CTOT Z INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        CTOT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF14493 ':INT32) (NR-REF14494 ':INT32)
                              (SQRE-REF14495 ':INT32) (K-REF14496 ':INT32)
                              (LDQ-REF14499 ':INT32) (LDU-REF14502 ':INT32)
                              (LDU2-REF14504 ':INT32) (LDVT-REF14506 ':INT32)
                              (LDVT2-REF14508 ':INT32) (INFO-REF14512 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14493 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14494 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14495 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14496 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF14499 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14502 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF14504 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14506 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF14508 :INT32) LDVT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14512 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14497 D) (Q-REF14498 Q)
                                            (DSIGMA-REF14500 DSIGMA)
                                            (U-REF14501 U) (U2-REF14503 U2)
                                            (VT-REF14505 VT) (VT2-REF14507 VT2)
                                            (IDXC-REF14509 IDXC)
                                            (CTOT-REF14510 CTOT) (Z-REF14511 Z))
      (%%SLASD3 NL-REF14493 NR-REF14494 SQRE-REF14495 K-REF14496 D-REF14497
       Q-REF14498 LDQ-REF14499 DSIGMA-REF14500 U-REF14501 LDU-REF14502
       U2-REF14503 LDU2-REF14504 VT-REF14505 LDVT-REF14506 VT2-REF14507
       LDVT2-REF14508 IDXC-REF14509 CTOT-REF14510 Z-REF14511 INFO-REF14512))))

(CFFI:DEFCFUN ("slasd4_" %%SLASD4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (SIGMA :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD4 (N I D Z DELTA RHO SIGMA WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14513 ':INT32) (I-REF14514 ':INT32)
                              (RHO-REF14518 ':FLOAT) (SIGMA-REF14519 ':FLOAT)
                              (INFO-REF14521 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14513 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF14514 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF14518 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14519 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14521 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14515 D) (Z-REF14516 Z)
                                            (DELTA-REF14517 DELTA)
                                            (WORK-REF14520 WORK))
      (%%SLASD4 N-REF14513 I-REF14514 D-REF14515 Z-REF14516 DELTA-REF14517
       RHO-REF14518 SIGMA-REF14519 WORK-REF14520 INFO-REF14521))))

(CFFI:DEFCFUN ("slasd5_" %%SLASD5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (DSIGMA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLASD5 (I D Z DELTA RHO DSIGMA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((I-REF14522 ':INT32) (RHO-REF14526 ':FLOAT)
                              (DSIGMA-REF14527 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF14522 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF14526 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DSIGMA-REF14527 :FLOAT) DSIGMA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14523 D) (Z-REF14524 Z)
                                            (DELTA-REF14525 DELTA)
                                            (WORK-REF14528 WORK))
      (%%SLASD5 I-REF14522 D-REF14523 Z-REF14524 DELTA-REF14525 RHO-REF14526
       DSIGMA-REF14527 WORK-REF14528))))

(CFFI:DEFCFUN ("slasd6_" %%SLASD6 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (VF :POINTER)
  (VL :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (IDXQ :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (POLES :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (K :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD6
                   (ICOMPQ NL NR SQRE D VF VL ALPHA BETA IDXQ PERM GIVPTR
                    GIVCOL LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14529 ':INT32) (NL-REF14530 ':INT32)
                              (NR-REF14531 ':INT32) (SQRE-REF14532 ':INT32)
                              (ALPHA-REF14536 ':FLOAT) (BETA-REF14537 ':FLOAT)
                              (GIVPTR-REF14540 ':INT32)
                              (LDGCOL-REF14542 ':INT32)
                              (LDGNUM-REF14544 ':INT32) (K-REF14549 ':INT32)
                              (C-REF14550 ':FLOAT) (S-REF14551 ':FLOAT)
                              (INFO-REF14554 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14529 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14530 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14531 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14532 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14536 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14537 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF14540 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF14542 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF14544 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14549 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF14550 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF14551 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14554 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14533 D) (VF-REF14534 VF)
                                            (VL-REF14535 VL)
                                            (IDXQ-REF14538 IDXQ)
                                            (PERM-REF14539 PERM)
                                            (GIVCOL-REF14541 GIVCOL)
                                            (GIVNUM-REF14543 GIVNUM)
                                            (POLES-REF14545 POLES)
                                            (DIFL-REF14546 DIFL)
                                            (DIFR-REF14547 DIFR) (Z-REF14548 Z)
                                            (WORK-REF14552 WORK)
                                            (IWORK-REF14553 IWORK))
      (%%SLASD6 ICOMPQ-REF14529 NL-REF14530 NR-REF14531 SQRE-REF14532
       D-REF14533 VF-REF14534 VL-REF14535 ALPHA-REF14536 BETA-REF14537
       IDXQ-REF14538 PERM-REF14539 GIVPTR-REF14540 GIVCOL-REF14541
       LDGCOL-REF14542 GIVNUM-REF14543 LDGNUM-REF14544 POLES-REF14545
       DIFL-REF14546 DIFR-REF14547 Z-REF14548 K-REF14549 C-REF14550 S-REF14551
       WORK-REF14552 IWORK-REF14553 INFO-REF14554))))

(CFFI:DEFCFUN ("slasd7_" %%SLASD7 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (ZW :POINTER)
  (VF :POINTER)
  (VFW :POINTER)
  (VL :POINTER)
  (VLW :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (DSIGMA :POINTER)
  (IDX :POINTER)
  (IDXP :POINTER)
  (IDXQ :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD7
                   (ICOMPQ NL NR SQRE K D Z ZW VF VFW VL VLW ALPHA BETA DSIGMA
                    IDX IDXP IDXQ PERM GIVPTR GIVCOL LDGCOL GIVNUM LDGNUM C S
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD7)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ZW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VFW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VLW)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14555 ':INT32) (NL-REF14556 ':INT32)
                              (NR-REF14557 ':INT32) (SQRE-REF14558 ':INT32)
                              (K-REF14559 ':INT32) (ALPHA-REF14567 ':FLOAT)
                              (BETA-REF14568 ':FLOAT) (GIVPTR-REF14574 ':INT32)
                              (LDGCOL-REF14576 ':INT32)
                              (LDGNUM-REF14578 ':INT32) (C-REF14579 ':FLOAT)
                              (S-REF14580 ':FLOAT) (INFO-REF14581 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14555 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14556 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14557 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14558 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14559 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14567 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14568 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF14574 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF14576 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF14578 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF14579 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF14580 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14581 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14560 D) (Z-REF14561 Z)
                                            (ZW-REF14562 ZW) (VF-REF14563 VF)
                                            (VFW-REF14564 VFW) (VL-REF14565 VL)
                                            (VLW-REF14566 VLW)
                                            (DSIGMA-REF14569 DSIGMA)
                                            (IDX-REF14570 IDX)
                                            (IDXP-REF14571 IDXP)
                                            (IDXQ-REF14572 IDXQ)
                                            (PERM-REF14573 PERM)
                                            (GIVCOL-REF14575 GIVCOL)
                                            (GIVNUM-REF14577 GIVNUM))
      (%%SLASD7 ICOMPQ-REF14555 NL-REF14556 NR-REF14557 SQRE-REF14558
       K-REF14559 D-REF14560 Z-REF14561 ZW-REF14562 VF-REF14563 VFW-REF14564
       VL-REF14565 VLW-REF14566 ALPHA-REF14567 BETA-REF14568 DSIGMA-REF14569
       IDX-REF14570 IDXP-REF14571 IDXQ-REF14572 PERM-REF14573 GIVPTR-REF14574
       GIVCOL-REF14575 LDGCOL-REF14576 GIVNUM-REF14577 LDGNUM-REF14578
       C-REF14579 S-REF14580 INFO-REF14581))))

(CFFI:DEFCFUN ("slasd8_" %%SLASD8 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (VF :POINTER)
  (VL :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (LDDIFR :POINTER)
  (DSIGMA :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD8
                   (ICOMPQ K D Z VF VL DIFL DIFR LDDIFR DSIGMA WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD8)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDDIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14582 ':INT32) (K-REF14583 ':INT32)
                              (LDDIFR-REF14590 ':INT32) (INFO-REF14593 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14582 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14583 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDDIFR-REF14590 :INT32) LDDIFR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14593 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14584 D) (Z-REF14585 Z)
                                            (VF-REF14586 VF) (VL-REF14587 VL)
                                            (DIFL-REF14588 DIFL)
                                            (DIFR-REF14589 DIFR)
                                            (DSIGMA-REF14591 DSIGMA)
                                            (WORK-REF14592 WORK))
      (%%SLASD8 ICOMPQ-REF14582 K-REF14583 D-REF14584 Z-REF14585 VF-REF14586
       VL-REF14587 DIFL-REF14588 DIFR-REF14589 LDDIFR-REF14590 DSIGMA-REF14591
       WORK-REF14592 INFO-REF14593))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%ILASLR %ILASLR %%ILATRANS %ILATRANS %%ILAUPLO
  %ILAUPLO %%ILAZLC %ILAZLC %%ILAZLR %ILAZLR %%IPARMQ %IPARMQ %%IZMAX1 %IZMAX1
  %%LSAMEN %LSAMEN %%SBBCSD %SBBCSD %%SBDSDC %SBDSDC %%SBDSQR %SBDSQR %%SBDSVDX
  %SBDSVDX %%SCOMBSSQ %SCOMBSSQ %%SCSUM1 %SCSUM1 %%SDISNA %SDISNA %%SGBBRD
  %SGBBRD %%SGBCON %SGBCON %%SGBEQU %SGBEQU %%SGBEQUB %SGBEQUB %%SGBRFS %SGBRFS
  %%SGBRFSX %SGBRFSX %%SGBSV %SGBSV %%SGBSVX %SGBSVX %%SGBSVXX %SGBSVXX
  %%SGBTF2 %SGBTF2 %%SGBTRF %SGBTRF %%SGBTRS %SGBTRS %%SGEBAK %SGEBAK %%SGEBAL
  %SGEBAL %%SGEBD2 %SGEBD2 %%SGEBRD %SGEBRD %%SGECON %SGECON %%SGEEQU %SGEEQU
  %%SGEEQUB %SGEEQUB %%SGEES %SGEES %%SGEESX %SGEESX %%SGEEV %SGEEV %%SGEEVX
  %SGEEVX %%SGEHD2 %SGEHD2 %%SGEHRD %SGEHRD %%SGEJSV %SGEJSV %%SGELQ %SGELQ
  %%SGELQ2 %SGELQ2 %%SGELQF %SGELQF %%SGELQT %SGELQT %%SGELQT3 %SGELQT3 %%SGELS
  %SGELS %%SGELSD %SGELSD %%SGELSS %SGELSS %%SGELSY %SGELSY %%SGEMLQ %SGEMLQ
  %%SGEMLQT %SGEMLQT %%SGEMQR %SGEMQR %%SGEMQRT %SGEMQRT %%SGEQL2 %SGEQL2
  %%SGEQLF %SGEQLF %%SGEQP3 %SGEQP3 %%SGEQR %SGEQR %%SGEQR2 %SGEQR2 %%SGEQR2P
  %SGEQR2P %%SGEQRF %SGEQRF %%SGEQRFP %SGEQRFP %%SGEQRT %SGEQRT %%SGEQRT2
  %SGEQRT2 %%SGEQRT3 %SGEQRT3 %%SGERFS %SGERFS %%SGERFSX %SGERFSX %%SGERQ2
  %SGERQ2 %%SGERQF %SGERQF %%SGESC2 %SGESC2 %%SGESDD %SGESDD %%SGESV %SGESV
  %%SGESVD %SGESVD %%SGESVDQ %SGESVDQ %%SGESVDX %SGESVDX %%SGESVJ %SGESVJ
  %%SGESVX %SGESVX %%SGESVXX %SGESVXX %%SGETC2 %SGETC2 %%SGETF2 %SGETF2
  %%SGETRF %SGETRF %%SGETRF2 %SGETRF2 %%SGETRI %SGETRI %%SGETRS %SGETRS
  %%SGETSLS %SGETSLS %%SGGBAK %SGGBAK %%SGGBAL %SGGBAL %%SGGES %SGGES %%SGGES3
  %SGGES3 %%SGGESX %SGGESX %%SGGEV %SGGEV %%SGGEV3 %SGGEV3 %%SGGEVX %SGGEVX
  %%SGGGLM %SGGGLM %%SGGHD3 %SGGHD3 %%SGGHRD %SGGHRD %%SGGLSE %SGGLSE %%SGGQRF
  %SGGQRF %%SGGRQF %SGGRQF %%SGGSVD3 %SGGSVD3 %%SGGSVP3 %SGGSVP3 %%SGSVJ0
  %SGSVJ0 %%SGSVJ1 %SGSVJ1 %%SGTCON %SGTCON %%SGTRFS %SGTRFS %%SGTSV %SGTSV
  %%SGTSVX %SGTSVX %%SGTTRF %SGTTRF %%SGTTRS %SGTTRS %%SGTTS2 %SGTTS2 %%SHGEQZ
  %SHGEQZ %%SHSEIN %SHSEIN %%SHSEQR %SHSEQR %%SISNAN %SISNAN %%SLA_GBAMV
  %SLA_GBAMV %%SLA_GBRCOND %SLA_GBRCOND %%SLA_GBRFSX_EXTENDED
  %SLA_GBRFSX_EXTENDED %%SLA_GBRPVGRW %SLA_GBRPVGRW %%SLA_GEAMV %SLA_GEAMV
  %%SLA_GERCOND %SLA_GERCOND %%SLA_GERFSX_EXTENDED %SLA_GERFSX_EXTENDED
  %%SLA_GERPVGRW %SLA_GERPVGRW %%SLA_LIN_BERR %SLA_LIN_BERR %%SLA_PORCOND
  %SLA_PORCOND %%SLA_PORFSX_EXTENDED %SLA_PORFSX_EXTENDED %%SLA_PORPVGRW
  %SLA_PORPVGRW %%SLA_SYAMV %SLA_SYAMV %%SLA_SYRCOND %SLA_SYRCOND
  %%SLA_SYRFSX_EXTENDED %SLA_SYRFSX_EXTENDED %%SLA_SYRPVGRW %SLA_SYRPVGRW
  %%SLA_WWADDW %SLA_WWADDW %%SLABAD %SLABAD %%SLABRD %SLABRD %%SLACN2 %SLACN2
  %%SLACON %SLACON %%SLACPY %SLACPY %%SLADIV %SLADIV %%SLAE2 %SLAE2 %%SLAEBZ
  %SLAEBZ %%SLAED0 %SLAED0 %%SLAED1 %SLAED1 %%SLAED2 %SLAED2 %%SLAED3 %SLAED3
  %%SLAED4 %SLAED4 %%SLAED5 %SLAED5 %%SLAED6 %SLAED6 %%SLAED7 %SLAED7 %%SLAED8
  %SLAED8 %%SLAED9 %SLAED9 %%SLAEDA %SLAEDA %%SLAEIN %SLAEIN %%SLAEV2 %SLAEV2
  %%SLAEXC %SLAEXC %%SLAG2 %SLAG2 %%SLAG2D %SLAG2D %%SLAGS2 %SLAGS2 %%SLAGTF
  %SLAGTF %%SLAGTM %SLAGTM %%SLAGTS %SLAGTS %%SLAGV2 %SLAGV2 %%SLAHQR %SLAHQR
  %%SLAHR2 %SLAHR2 %%SLAIC1 %SLAIC1 %%SLAISNAN %SLAISNAN %%SLALN2 %SLALN2
  %%SLALS0 %SLALS0 %%SLALSA %SLALSA %%SLALSD %SLALSD %%SLAMRG %SLAMRG
  %%SLAMSWLQ %SLAMSWLQ %%SLAMTSQR %SLAMTSQR %%SLANEG %SLANEG %%SLANGB %SLANGB
  %%SLANGE %SLANGE %%SLANGT %SLANGT %%SLANHS %SLANHS %%SLANSB %SLANSB %%SLANSF
  %SLANSF %%SLANSP %SLANSP %%SLANST %SLANST %%SLANSY %SLANSY %%SLANTB %SLANTB
  %%SLANTP %SLANTP %%SLANTR %SLANTR %%SLANV2 %SLANV2 %%SLAORHR_COL_GETRFNP
  %SLAORHR_COL_GETRFNP %%SLAORHR_COL_GETRFNP2 %SLAORHR_COL_GETRFNP2 %%SLAPLL
  %SLAPLL %%SLAPMR %SLAPMR %%SLAPMT %SLAPMT %%SLAPY2 %SLAPY2 %%SLAPY3 %SLAPY3
  %%SLAQGB %SLAQGB %%SLAQGE %SLAQGE %%SLAQP2 %SLAQP2 %%SLAQPS %SLAQPS %%SLAQR0
  %SLAQR0 %%SLAQR1 %SLAQR1 %%SLAQR2 %SLAQR2 %%SLAQR3 %SLAQR3 %%SLAQR4 %SLAQR4
  %%SLAQR5 %SLAQR5 %%SLAQSB %SLAQSB %%SLAQSP %SLAQSP %%SLAQSY %SLAQSY %%SLAQTR
  %SLAQTR %%SLAR1V %SLAR1V %%SLAR2V %SLAR2V %%SLARF %SLARF %%SLARFB %SLARFB
  %%SLARFG %SLARFG %%SLARFGP %SLARFGP %%SLARFT %SLARFT %%SLARFX %SLARFX
  %%SLARFY %SLARFY %%SLARGV %SLARGV %%SLARNV %SLARNV %%SLARRA %SLARRA %%SLARRB
  %SLARRB %%SLARRC %SLARRC %%SLARRD %SLARRD %%SLARRE %SLARRE %%SLARRF %SLARRF
  %%SLARRJ %SLARRJ %%SLARRK %SLARRK %%SLARRR %SLARRR %%SLARRV %SLARRV
  %%SLARSCL2 %SLARSCL2 %%SLARTG %SLARTG %%SLARTGP %SLARTGP %%SLARTGS %SLARTGS
  %%SLARTV %SLARTV %%SLARUV %SLARUV %%SLARZ %SLARZ %%SLARZB %SLARZB %%SLARZT
  %SLARZT %%SLAS2 %SLAS2 %%SLASCL %SLASCL %%SLASCL2 %SLASCL2 %%SLASD0 %SLASD0
  %%SLASD1 %SLASD1 %%SLASD2 %SLASD2 %%SLASD3 %SLASD3 %%SLASD4 %SLASD4 %%SLASD5
  %SLASD5 %%SLASD6 %SLASD6 %%SLASD7 %SLASD7 %%SLASD8 %SLASD8))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
                                        '(("ILASLR" "ilaslr_" %%ILASLR %ILASLR)
                                          ("ILATRANS" "ilatrans_" %%ILATRANS
                                           %ILATRANS)
                                          ("ILAUPLO" "ilauplo_" %%ILAUPLO
                                           %ILAUPLO)
                                          ("ILAZLC" "ilazlc_" %%ILAZLC %ILAZLC)
                                          ("ILAZLR" "ilazlr_" %%ILAZLR %ILAZLR)
                                          ("IPARMQ" "iparmq_" %%IPARMQ %IPARMQ)
                                          ("IZMAX1" "izmax1_" %%IZMAX1 %IZMAX1)
                                          ("LSAMEN" "lsamen_" %%LSAMEN %LSAMEN)
                                          ("SBBCSD" "sbbcsd_" %%SBBCSD %SBBCSD)
                                          ("SBDSDC" "sbdsdc_" %%SBDSDC %SBDSDC)
                                          ("SBDSQR" "sbdsqr_" %%SBDSQR %SBDSQR)
                                          ("SBDSVDX" "sbdsvdx_" %%SBDSVDX
                                           %SBDSVDX)
                                          ("SCOMBSSQ" "scombssq_" %%SCOMBSSQ
                                           %SCOMBSSQ)
                                          ("SCSUM1" "scsum1_" %%SCSUM1 %SCSUM1)
                                          ("SDISNA" "sdisna_" %%SDISNA %SDISNA)
                                          ("SGBBRD" "sgbbrd_" %%SGBBRD %SGBBRD)
                                          ("SGBCON" "sgbcon_" %%SGBCON %SGBCON)
                                          ("SGBEQU" "sgbequ_" %%SGBEQU %SGBEQU)
                                          ("SGBEQUB" "sgbequb_" %%SGBEQUB
                                           %SGBEQUB)
                                          ("SGBRFS" "sgbrfs_" %%SGBRFS %SGBRFS)
                                          ("SGBRFSX" "sgbrfsx_" %%SGBRFSX
                                           %SGBRFSX)
                                          ("SGBSV" "sgbsv_" %%SGBSV %SGBSV)
                                          ("SGBSVX" "sgbsvx_" %%SGBSVX %SGBSVX)
                                          ("SGBSVXX" "sgbsvxx_" %%SGBSVXX
                                           %SGBSVXX)
                                          ("SGBTF2" "sgbtf2_" %%SGBTF2 %SGBTF2)
                                          ("SGBTRF" "sgbtrf_" %%SGBTRF %SGBTRF)
                                          ("SGBTRS" "sgbtrs_" %%SGBTRS %SGBTRS)
                                          ("SGEBAK" "sgebak_" %%SGEBAK %SGEBAK)
                                          ("SGEBAL" "sgebal_" %%SGEBAL %SGEBAL)
                                          ("SGEBD2" "sgebd2_" %%SGEBD2 %SGEBD2)
                                          ("SGEBRD" "sgebrd_" %%SGEBRD %SGEBRD)
                                          ("SGECON" "sgecon_" %%SGECON %SGECON)
                                          ("SGEEQU" "sgeequ_" %%SGEEQU %SGEEQU)
                                          ("SGEEQUB" "sgeequb_" %%SGEEQUB
                                           %SGEEQUB)
                                          ("SGEES" "sgees_" %%SGEES %SGEES)
                                          ("SGEESX" "sgeesx_" %%SGEESX %SGEESX)
                                          ("SGEEV" "sgeev_" %%SGEEV %SGEEV)
                                          ("SGEEVX" "sgeevx_" %%SGEEVX %SGEEVX)
                                          ("SGEHD2" "sgehd2_" %%SGEHD2 %SGEHD2)
                                          ("SGEHRD" "sgehrd_" %%SGEHRD %SGEHRD)
                                          ("SGEJSV" "sgejsv_" %%SGEJSV %SGEJSV)
                                          ("SGELQ" "sgelq_" %%SGELQ %SGELQ)
                                          ("SGELQ2" "sgelq2_" %%SGELQ2 %SGELQ2)
                                          ("SGELQF" "sgelqf_" %%SGELQF %SGELQF)
                                          ("SGELQT" "sgelqt_" %%SGELQT %SGELQT)
                                          ("SGELQT3" "sgelqt3_" %%SGELQT3
                                           %SGELQT3)
                                          ("SGELS" "sgels_" %%SGELS %SGELS)
                                          ("SGELSD" "sgelsd_" %%SGELSD %SGELSD)
                                          ("SGELSS" "sgelss_" %%SGELSS %SGELSS)
                                          ("SGELSY" "sgelsy_" %%SGELSY %SGELSY)
                                          ("SGEMLQ" "sgemlq_" %%SGEMLQ %SGEMLQ)
                                          ("SGEMLQT" "sgemlqt_" %%SGEMLQT
                                           %SGEMLQT)
                                          ("SGEMQR" "sgemqr_" %%SGEMQR %SGEMQR)
                                          ("SGEMQRT" "sgemqrt_" %%SGEMQRT
                                           %SGEMQRT)
                                          ("SGEQL2" "sgeql2_" %%SGEQL2 %SGEQL2)
                                          ("SGEQLF" "sgeqlf_" %%SGEQLF %SGEQLF)
                                          ("SGEQP3" "sgeqp3_" %%SGEQP3 %SGEQP3)
                                          ("SGEQR" "sgeqr_" %%SGEQR %SGEQR)
                                          ("SGEQR2" "sgeqr2_" %%SGEQR2 %SGEQR2)
                                          ("SGEQR2P" "sgeqr2p_" %%SGEQR2P
                                           %SGEQR2P)
                                          ("SGEQRF" "sgeqrf_" %%SGEQRF %SGEQRF)
                                          ("SGEQRFP" "sgeqrfp_" %%SGEQRFP
                                           %SGEQRFP)
                                          ("SGEQRT" "sgeqrt_" %%SGEQRT %SGEQRT)
                                          ("SGEQRT2" "sgeqrt2_" %%SGEQRT2
                                           %SGEQRT2)
                                          ("SGEQRT3" "sgeqrt3_" %%SGEQRT3
                                           %SGEQRT3)
                                          ("SGERFS" "sgerfs_" %%SGERFS %SGERFS)
                                          ("SGERFSX" "sgerfsx_" %%SGERFSX
                                           %SGERFSX)
                                          ("SGERQ2" "sgerq2_" %%SGERQ2 %SGERQ2)
                                          ("SGERQF" "sgerqf_" %%SGERQF %SGERQF)
                                          ("SGESC2" "sgesc2_" %%SGESC2 %SGESC2)
                                          ("SGESDD" "sgesdd_" %%SGESDD %SGESDD)
                                          ("SGESV" "sgesv_" %%SGESV %SGESV)
                                          ("SGESVD" "sgesvd_" %%SGESVD %SGESVD)
                                          ("SGESVDQ" "sgesvdq_" %%SGESVDQ
                                           %SGESVDQ)
                                          ("SGESVDX" "sgesvdx_" %%SGESVDX
                                           %SGESVDX)
                                          ("SGESVJ" "sgesvj_" %%SGESVJ %SGESVJ)
                                          ("SGESVX" "sgesvx_" %%SGESVX %SGESVX)
                                          ("SGESVXX" "sgesvxx_" %%SGESVXX
                                           %SGESVXX)
                                          ("SGETC2" "sgetc2_" %%SGETC2 %SGETC2)
                                          ("SGETF2" "sgetf2_" %%SGETF2 %SGETF2)
                                          ("SGETRF" "sgetrf_" %%SGETRF %SGETRF)
                                          ("SGETRF2" "sgetrf2_" %%SGETRF2
                                           %SGETRF2)
                                          ("SGETRI" "sgetri_" %%SGETRI %SGETRI)
                                          ("SGETRS" "sgetrs_" %%SGETRS %SGETRS)
                                          ("SGETSLS" "sgetsls_" %%SGETSLS
                                           %SGETSLS)
                                          ("SGGBAK" "sggbak_" %%SGGBAK %SGGBAK)
                                          ("SGGBAL" "sggbal_" %%SGGBAL %SGGBAL)
                                          ("SGGES" "sgges_" %%SGGES %SGGES)
                                          ("SGGES3" "sgges3_" %%SGGES3 %SGGES3)
                                          ("SGGESX" "sggesx_" %%SGGESX %SGGESX)
                                          ("SGGEV" "sggev_" %%SGGEV %SGGEV)
                                          ("SGGEV3" "sggev3_" %%SGGEV3 %SGGEV3)
                                          ("SGGEVX" "sggevx_" %%SGGEVX %SGGEVX)
                                          ("SGGGLM" "sggglm_" %%SGGGLM %SGGGLM)
                                          ("SGGHD3" "sgghd3_" %%SGGHD3 %SGGHD3)
                                          ("SGGHRD" "sgghrd_" %%SGGHRD %SGGHRD)
                                          ("SGGLSE" "sgglse_" %%SGGLSE %SGGLSE)
                                          ("SGGQRF" "sggqrf_" %%SGGQRF %SGGQRF)
                                          ("SGGRQF" "sggrqf_" %%SGGRQF %SGGRQF)
                                          ("SGGSVD3" "sggsvd3_" %%SGGSVD3
                                           %SGGSVD3)
                                          ("SGGSVP3" "sggsvp3_" %%SGGSVP3
                                           %SGGSVP3)
                                          ("SGSVJ0" "sgsvj0_" %%SGSVJ0 %SGSVJ0)
                                          ("SGSVJ1" "sgsvj1_" %%SGSVJ1 %SGSVJ1)
                                          ("SGTCON" "sgtcon_" %%SGTCON %SGTCON)
                                          ("SGTRFS" "sgtrfs_" %%SGTRFS %SGTRFS)
                                          ("SGTSV" "sgtsv_" %%SGTSV %SGTSV)
                                          ("SGTSVX" "sgtsvx_" %%SGTSVX %SGTSVX)
                                          ("SGTTRF" "sgttrf_" %%SGTTRF %SGTTRF)
                                          ("SGTTRS" "sgttrs_" %%SGTTRS %SGTTRS)
                                          ("SGTTS2" "sgtts2_" %%SGTTS2 %SGTTS2)
                                          ("SHGEQZ" "shgeqz_" %%SHGEQZ %SHGEQZ)
                                          ("SHSEIN" "shsein_" %%SHSEIN %SHSEIN)
                                          ("SHSEQR" "shseqr_" %%SHSEQR %SHSEQR)
                                          ("SISNAN" "sisnan_" %%SISNAN %SISNAN)
                                          ("SLA_GBAMV" "sla_gbamv_" %%SLA_GBAMV
                                           %SLA_GBAMV)
                                          ("SLA_GBRCOND" "sla_gbrcond_"
                                           %%SLA_GBRCOND %SLA_GBRCOND)
                                          ("SLA_GBRFSX_EXTENDED"
                                           "sla_gbrfsx_extended_"
                                           %%SLA_GBRFSX_EXTENDED
                                           %SLA_GBRFSX_EXTENDED)
                                          ("SLA_GBRPVGRW" "sla_gbrpvgrw_"
                                           %%SLA_GBRPVGRW %SLA_GBRPVGRW)
                                          ("SLA_GEAMV" "sla_geamv_" %%SLA_GEAMV
                                           %SLA_GEAMV)
                                          ("SLA_GERCOND" "sla_gercond_"
                                           %%SLA_GERCOND %SLA_GERCOND)
                                          ("SLA_GERFSX_EXTENDED"
                                           "sla_gerfsx_extended_"
                                           %%SLA_GERFSX_EXTENDED
                                           %SLA_GERFSX_EXTENDED)
                                          ("SLA_GERPVGRW" "sla_gerpvgrw_"
                                           %%SLA_GERPVGRW %SLA_GERPVGRW)
                                          ("SLA_LIN_BERR" "sla_lin_berr_"
                                           %%SLA_LIN_BERR %SLA_LIN_BERR)
                                          ("SLA_PORCOND" "sla_porcond_"
                                           %%SLA_PORCOND %SLA_PORCOND)
                                          ("SLA_PORFSX_EXTENDED"
                                           "sla_porfsx_extended_"
                                           %%SLA_PORFSX_EXTENDED
                                           %SLA_PORFSX_EXTENDED)
                                          ("SLA_PORPVGRW" "sla_porpvgrw_"
                                           %%SLA_PORPVGRW %SLA_PORPVGRW)
                                          ("SLA_SYAMV" "sla_syamv_" %%SLA_SYAMV
                                           %SLA_SYAMV)
                                          ("SLA_SYRCOND" "sla_syrcond_"
                                           %%SLA_SYRCOND %SLA_SYRCOND)
                                          ("SLA_SYRFSX_EXTENDED"
                                           "sla_syrfsx_extended_"
                                           %%SLA_SYRFSX_EXTENDED
                                           %SLA_SYRFSX_EXTENDED)
                                          ("SLA_SYRPVGRW" "sla_syrpvgrw_"
                                           %%SLA_SYRPVGRW %SLA_SYRPVGRW)
                                          ("SLA_WWADDW" "sla_wwaddw_"
                                           %%SLA_WWADDW %SLA_WWADDW)
                                          ("SLABAD" "slabad_" %%SLABAD %SLABAD)
                                          ("SLABRD" "slabrd_" %%SLABRD %SLABRD)
                                          ("SLACN2" "slacn2_" %%SLACN2 %SLACN2)
                                          ("SLACON" "slacon_" %%SLACON %SLACON)
                                          ("SLACPY" "slacpy_" %%SLACPY %SLACPY)
                                          ("SLADIV" "sladiv_" %%SLADIV %SLADIV)
                                          ("SLAE2" "slae2_" %%SLAE2 %SLAE2)
                                          ("SLAEBZ" "slaebz_" %%SLAEBZ %SLAEBZ)
                                          ("SLAED0" "slaed0_" %%SLAED0 %SLAED0)
                                          ("SLAED1" "slaed1_" %%SLAED1 %SLAED1)
                                          ("SLAED2" "slaed2_" %%SLAED2 %SLAED2)
                                          ("SLAED3" "slaed3_" %%SLAED3 %SLAED3)
                                          ("SLAED4" "slaed4_" %%SLAED4 %SLAED4)
                                          ("SLAED5" "slaed5_" %%SLAED5 %SLAED5)
                                          ("SLAED6" "slaed6_" %%SLAED6 %SLAED6)
                                          ("SLAED7" "slaed7_" %%SLAED7 %SLAED7)
                                          ("SLAED8" "slaed8_" %%SLAED8 %SLAED8)
                                          ("SLAED9" "slaed9_" %%SLAED9 %SLAED9)
                                          ("SLAEDA" "slaeda_" %%SLAEDA %SLAEDA)
                                          ("SLAEIN" "slaein_" %%SLAEIN %SLAEIN)
                                          ("SLAEV2" "slaev2_" %%SLAEV2 %SLAEV2)
                                          ("SLAEXC" "slaexc_" %%SLAEXC %SLAEXC)
                                          ("SLAG2" "slag2_" %%SLAG2 %SLAG2)
                                          ("SLAG2D" "slag2d_" %%SLAG2D %SLAG2D)
                                          ("SLAGS2" "slags2_" %%SLAGS2 %SLAGS2)
                                          ("SLAGTF" "slagtf_" %%SLAGTF %SLAGTF)
                                          ("SLAGTM" "slagtm_" %%SLAGTM %SLAGTM)
                                          ("SLAGTS" "slagts_" %%SLAGTS %SLAGTS)
                                          ("SLAGV2" "slagv2_" %%SLAGV2 %SLAGV2)
                                          ("SLAHQR" "slahqr_" %%SLAHQR %SLAHQR)
                                          ("SLAHR2" "slahr2_" %%SLAHR2 %SLAHR2)
                                          ("SLAIC1" "slaic1_" %%SLAIC1 %SLAIC1)
                                          ("SLAISNAN" "slaisnan_" %%SLAISNAN
                                           %SLAISNAN)
                                          ("SLALN2" "slaln2_" %%SLALN2 %SLALN2)
                                          ("SLALS0" "slals0_" %%SLALS0 %SLALS0)
                                          ("SLALSA" "slalsa_" %%SLALSA %SLALSA)
                                          ("SLALSD" "slalsd_" %%SLALSD %SLALSD)
                                          ("SLAMRG" "slamrg_" %%SLAMRG %SLAMRG)
                                          ("SLAMSWLQ" "slamswlq_" %%SLAMSWLQ
                                           %SLAMSWLQ)
                                          ("SLAMTSQR" "slamtsqr_" %%SLAMTSQR
                                           %SLAMTSQR)
                                          ("SLANEG" "slaneg_" %%SLANEG %SLANEG)
                                          ("SLANGB" "slangb_" %%SLANGB %SLANGB)
                                          ("SLANGE" "slange_" %%SLANGE %SLANGE)
                                          ("SLANGT" "slangt_" %%SLANGT %SLANGT)
                                          ("SLANHS" "slanhs_" %%SLANHS %SLANHS)
                                          ("SLANSB" "slansb_" %%SLANSB %SLANSB)
                                          ("SLANSF" "slansf_" %%SLANSF %SLANSF)
                                          ("SLANSP" "slansp_" %%SLANSP %SLANSP)
                                          ("SLANST" "slanst_" %%SLANST %SLANST)
                                          ("SLANSY" "slansy_" %%SLANSY %SLANSY)
                                          ("SLANTB" "slantb_" %%SLANTB %SLANTB)
                                          ("SLANTP" "slantp_" %%SLANTP %SLANTP)
                                          ("SLANTR" "slantr_" %%SLANTR %SLANTR)
                                          ("SLANV2" "slanv2_" %%SLANV2 %SLANV2)
                                          ("SLAORHR_COL_GETRFNP"
                                           "slaorhr_col_getrfnp_"
                                           %%SLAORHR_COL_GETRFNP
                                           %SLAORHR_COL_GETRFNP)
                                          ("SLAORHR_COL_GETRFNP2"
                                           "slaorhr_col_getrfnp2_"
                                           %%SLAORHR_COL_GETRFNP2
                                           %SLAORHR_COL_GETRFNP2)
                                          ("SLAPLL" "slapll_" %%SLAPLL %SLAPLL)
                                          ("SLAPMR" "slapmr_" %%SLAPMR %SLAPMR)
                                          ("SLAPMT" "slapmt_" %%SLAPMT %SLAPMT)
                                          ("SLAPY2" "slapy2_" %%SLAPY2 %SLAPY2)
                                          ("SLAPY3" "slapy3_" %%SLAPY3 %SLAPY3)
                                          ("SLAQGB" "slaqgb_" %%SLAQGB %SLAQGB)
                                          ("SLAQGE" "slaqge_" %%SLAQGE %SLAQGE)
                                          ("SLAQP2" "slaqp2_" %%SLAQP2 %SLAQP2)
                                          ("SLAQPS" "slaqps_" %%SLAQPS %SLAQPS)
                                          ("SLAQR0" "slaqr0_" %%SLAQR0 %SLAQR0)
                                          ("SLAQR1" "slaqr1_" %%SLAQR1 %SLAQR1)
                                          ("SLAQR2" "slaqr2_" %%SLAQR2 %SLAQR2)
                                          ("SLAQR3" "slaqr3_" %%SLAQR3 %SLAQR3)
                                          ("SLAQR4" "slaqr4_" %%SLAQR4 %SLAQR4)
                                          ("SLAQR5" "slaqr5_" %%SLAQR5 %SLAQR5)
                                          ("SLAQSB" "slaqsb_" %%SLAQSB %SLAQSB)
                                          ("SLAQSP" "slaqsp_" %%SLAQSP %SLAQSP)
                                          ("SLAQSY" "slaqsy_" %%SLAQSY %SLAQSY)
                                          ("SLAQTR" "slaqtr_" %%SLAQTR %SLAQTR)
                                          ("SLAR1V" "slar1v_" %%SLAR1V %SLAR1V)
                                          ("SLAR2V" "slar2v_" %%SLAR2V %SLAR2V)
                                          ("SLARF" "slarf_" %%SLARF %SLARF)
                                          ("SLARFB" "slarfb_" %%SLARFB %SLARFB)
                                          ("SLARFG" "slarfg_" %%SLARFG %SLARFG)
                                          ("SLARFGP" "slarfgp_" %%SLARFGP
                                           %SLARFGP)
                                          ("SLARFT" "slarft_" %%SLARFT %SLARFT)
                                          ("SLARFX" "slarfx_" %%SLARFX %SLARFX)
                                          ("SLARFY" "slarfy_" %%SLARFY %SLARFY)
                                          ("SLARGV" "slargv_" %%SLARGV %SLARGV)
                                          ("SLARNV" "slarnv_" %%SLARNV %SLARNV)
                                          ("SLARRA" "slarra_" %%SLARRA %SLARRA)
                                          ("SLARRB" "slarrb_" %%SLARRB %SLARRB)
                                          ("SLARRC" "slarrc_" %%SLARRC %SLARRC)
                                          ("SLARRD" "slarrd_" %%SLARRD %SLARRD)
                                          ("SLARRE" "slarre_" %%SLARRE %SLARRE)
                                          ("SLARRF" "slarrf_" %%SLARRF %SLARRF)
                                          ("SLARRJ" "slarrj_" %%SLARRJ %SLARRJ)
                                          ("SLARRK" "slarrk_" %%SLARRK %SLARRK)
                                          ("SLARRR" "slarrr_" %%SLARRR %SLARRR)
                                          ("SLARRV" "slarrv_" %%SLARRV %SLARRV)
                                          ("SLARSCL2" "slarscl2_" %%SLARSCL2
                                           %SLARSCL2)
                                          ("SLARTG" "slartg_" %%SLARTG %SLARTG)
                                          ("SLARTGP" "slartgp_" %%SLARTGP
                                           %SLARTGP)
                                          ("SLARTGS" "slartgs_" %%SLARTGS
                                           %SLARTGS)
                                          ("SLARTV" "slartv_" %%SLARTV %SLARTV)
                                          ("SLARUV" "slaruv_" %%SLARUV %SLARUV)
                                          ("SLARZ" "slarz_" %%SLARZ %SLARZ)
                                          ("SLARZB" "slarzb_" %%SLARZB %SLARZB)
                                          ("SLARZT" "slarzt_" %%SLARZT %SLARZT)
                                          ("SLAS2" "slas2_" %%SLAS2 %SLAS2)
                                          ("SLASCL" "slascl_" %%SLASCL %SLASCL)
                                          ("SLASCL2" "slascl2_" %%SLASCL2
                                           %SLASCL2)
                                          ("SLASD0" "slasd0_" %%SLASD0 %SLASD0)
                                          ("SLASD1" "slasd1_" %%SLASD1 %SLASD1)
                                          ("SLASD2" "slasd2_" %%SLASD2 %SLASD2)
                                          ("SLASD3" "slasd3_" %%SLASD3 %SLASD3)
                                          ("SLASD4" "slasd4_" %%SLASD4 %SLASD4)
                                          ("SLASD5" "slasd5_" %%SLASD5 %SLASD5)
                                          ("SLASD6" "slasd6_" %%SLASD6 %SLASD6)
                                          ("SLASD7" "slasd7_" %%SLASD7 %SLASD7)
                                          ("SLASD8" "slasd8_" %%SLASD8
                                           %SLASD8)))

(COMMON-LISP:EXPORT
 '(%ILASLR %ILATRANS %ILAUPLO %ILAZLC %ILAZLR %IPARMQ %IZMAX1 %LSAMEN %SBBCSD
   %SBDSDC %SBDSQR %SBDSVDX %SCOMBSSQ %SCSUM1 %SDISNA %SGBBRD %SGBCON %SGBEQU
   %SGBEQUB %SGBRFS %SGBRFSX %SGBSV %SGBSVX %SGBSVXX %SGBTF2 %SGBTRF %SGBTRS
   %SGEBAK %SGEBAL %SGEBD2 %SGEBRD %SGECON %SGEEQU %SGEEQUB %SGEES %SGEESX
   %SGEEV %SGEEVX %SGEHD2 %SGEHRD %SGEJSV %SGELQ %SGELQ2 %SGELQF %SGELQT
   %SGELQT3 %SGELS %SGELSD %SGELSS %SGELSY %SGEMLQ %SGEMLQT %SGEMQR %SGEMQRT
   %SGEQL2 %SGEQLF %SGEQP3 %SGEQR %SGEQR2 %SGEQR2P %SGEQRF %SGEQRFP %SGEQRT
   %SGEQRT2 %SGEQRT3 %SGERFS %SGERFSX %SGERQ2 %SGERQF %SGESC2 %SGESDD %SGESV
   %SGESVD %SGESVDQ %SGESVDX %SGESVJ %SGESVX %SGESVXX %SGETC2 %SGETF2 %SGETRF
   %SGETRF2 %SGETRI %SGETRS %SGETSLS %SGGBAK %SGGBAL %SGGES %SGGES3 %SGGESX
   %SGGEV %SGGEV3 %SGGEVX %SGGGLM %SGGHD3 %SGGHRD %SGGLSE %SGGQRF %SGGRQF
   %SGGSVD3 %SGGSVP3 %SGSVJ0 %SGSVJ1 %SGTCON %SGTRFS %SGTSV %SGTSVX %SGTTRF
   %SGTTRS %SGTTS2 %SHGEQZ %SHSEIN %SHSEQR %SISNAN %SLA_GBAMV %SLA_GBRCOND
   %SLA_GBRFSX_EXTENDED %SLA_GBRPVGRW %SLA_GEAMV %SLA_GERCOND
   %SLA_GERFSX_EXTENDED %SLA_GERPVGRW %SLA_LIN_BERR %SLA_PORCOND
   %SLA_PORFSX_EXTENDED %SLA_PORPVGRW %SLA_SYAMV %SLA_SYRCOND
   %SLA_SYRFSX_EXTENDED %SLA_SYRPVGRW %SLA_WWADDW %SLABAD %SLABRD %SLACN2
   %SLACON %SLACPY %SLADIV %SLAE2 %SLAEBZ %SLAED0 %SLAED1 %SLAED2 %SLAED3
   %SLAED4 %SLAED5 %SLAED6 %SLAED7 %SLAED8 %SLAED9 %SLAEDA %SLAEIN %SLAEV2
   %SLAEXC %SLAG2 %SLAG2D %SLAGS2 %SLAGTF %SLAGTM %SLAGTS %SLAGV2 %SLAHQR
   %SLAHR2 %SLAIC1 %SLAISNAN %SLALN2 %SLALS0 %SLALSA %SLALSD %SLAMRG %SLAMSWLQ
   %SLAMTSQR %SLANEG %SLANGB %SLANGE %SLANGT %SLANHS %SLANSB %SLANSF %SLANSP
   %SLANST %SLANSY %SLANTB %SLANTP %SLANTR %SLANV2 %SLAORHR_COL_GETRFNP
   %SLAORHR_COL_GETRFNP2 %SLAPLL %SLAPMR %SLAPMT %SLAPY2 %SLAPY3 %SLAQGB
   %SLAQGE %SLAQP2 %SLAQPS %SLAQR0 %SLAQR1 %SLAQR2 %SLAQR3 %SLAQR4 %SLAQR5
   %SLAQSB %SLAQSP %SLAQSY %SLAQTR %SLAR1V %SLAR2V %SLARF %SLARFB %SLARFG
   %SLARFGP %SLARFT %SLARFX %SLARFY %SLARGV %SLARNV %SLARRA %SLARRB %SLARRC
   %SLARRD %SLARRE %SLARRF %SLARRJ %SLARRK %SLARRR %SLARRV %SLARSCL2 %SLARTG
   %SLARTGP %SLARTGS %SLARTV %SLARUV %SLARZ %SLARZB %SLARZT %SLAS2 %SLASCL
   %SLASCL2 %SLASD0 %SLASD1 %SLASD2 %SLASD3 %SLASD4 %SLASD5 %SLASD6 %SLASD7
   %SLASD8)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
